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ABSTRACT 


This thesis documents the development of a 
micro-computer knowledge-based integrated configuration 
management system for use by Naval Supply Systems Command 
(NAVSUP) Stock Point Logistics Integrated Communications 
Hayir ronment SPLICE) Project Staff. A myriad of 
configuration heuristics associated with the configuration 
of a SPLICE site are identified. Itfa lsorprovidesT SPLICE 
project staff personnel a more accurate, reliable and 
efficient method of performing the configuration process and 
managing the overall project. 

The development of this integrated configuration 
management system employs both a prototype and software 
engineering methodology. The integrated configuration 
management system will be developed using custom generated 
software and the logical integration of several 


off-the-shelf commercial software packages. 


THESIS DISCLAIMER 


The reader is cautioned that computer programs developed 
in this research may not have been exercised for all cases 
of interest. While every effort has been made, within the 
time available, to ensure that the programs are free of 
computational and logic errors, they cannot be considered 
validated. Any application of these programs without 


additional verification is at the risk ЕССЕ 
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I. INTRODUCTION 


A. PURPOSE 
The Naval Supply Systems Command (NAVSUP) Stock Point 

Logistics Integrated Communications Environment (SPLICE) 
Project Manager is tasked with the responsibility to 
oversee, direct and review all aspects of the SPLICE 
project. More specific responsibilities of the SPLICE 
Project Manager include: 

1. ADP equipment acquisition 

2. ADP software development 


3. Coordination of installations and implementations with 
field activities 


In order to perform the latter of the above 
responsibilities, the Project Manager must maintain a 
complete history of all configuration components and 
component changes. This requirement applies to each 
component of hardware, software and documentation for the 
complete fifteen year life cycle of the project.[{Ref. 1] 
This thesis is designed to provide the Project Manager 
the capability to perform these functions in an automated 
manner. A micro-computer knowledge-based integrated 
configuration management system is seen as the means to 
accomplish the task. To aid in the development of such a 


system and reduce development time and difficulty, 


functional off-the-shelf commercial packages, where 
feasible, were used. The system was also designed as a 


user-friendly interactive system. 


B. BACKGROUND 
In 1977, NAVSUP conceived and developed the SPLICE 
project to accomplish the following goals: 
1. Provide state-of-the-art local and long haul 
telecommunications capabilities to sixty-two NAVSUP 


Stock Points 


2. Provide interactive and distributed automated data 
processing (ADP) capabilities to SPLICE sites 


3. Provide capacity relief to aging Burroughs hosts vac 
the Stock Poincs 


4. Standardize and upgrade, via mass replacement, the 
myriad of minicomputers existing at Stocweeom «4s 


To achieve these goals, NAVSUP initiated a competitive 
solicitation for "fault-tolerant" hardware and software. 
The solicitation was completed in November 1983 and the 
contract was awarded to Federal Data Corporation (FDC). 
FDC proposed TANDEM hardware and software to meet most of 
the solicitation processing and local communication 
requirements. Network System Corporation hardware and 
software were proposed to meet the local inter-host 
communication requirements. 

Shortly after the SPLICE contract award, hardware and 
software components had to be ordered. NAVSUP faced a 
dilemma. Only a few SPLICE personnel had worked closely 


with the SPLICE acquisition benchmark and negotiations. 


These few people were the only personnel that had sufficient 
knowledge of the system to configure and generate delivery 
orders. These personnel developed initial orders by hand to 
meet the immediate need. Numerous minor errors were 
encountered with initial orders.  FDC corrected the orders 
to the government and received additional compensation for 
their efforts. 

This manual configuration process was later automated 
using a software product called SUPERCALC2. It has 
subsequently transitioned to LOTUS 1-2-3. The basic method 
of developing these orders remained virtually manual. These 
few SPLICE personnel, with FDC assistance, developed a 
series of "rules of thumb" used to configure individual site 
systems. Many of the original SPLICE group have moved on, 


taking their knowledge of the system with them. 


CG. SCOPE 
A knowledge-based integrated configuration management 


software system designed to run on a micro-computer was 
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proposed by a former Fleet Material Support Office (FMSO) 


TPMSO is the Central Design Agency for all NAVSUP 


software development projects. As such, FMSO is responsible 
for the project development of the SPLICE project under the 
guidance and direction of the Systems Commander Project 
Manager, NAVSUP. 


SPLICE preyece officer? 


to codify these "ги е5 тШ sm 
The proposed integrated configuration management system will 
provide NAVSUP with the capability to develop and maintain 
SPLICE configurations and delivery orders and to perform 
configuration management for the overall project. The 
proposed integrated system will be composed of three 


software modules designed to: 


1. Configure initial SPLICE site systems by answering a 
series of configuration related questions 


2. Restructure the system configurer output file intoa 
format compatible for financial and "what-if" analysis 


3. Restructure the financial module output file into a 
Format compatible for entry into a data base 
Management system 


4. Generate a series of configuration management reports 
ко: 


a. obtain an overall project report 
b. obtain a report for a particular site 


C. obtain a report for a delivery order issued on a 
particular date 


5. Generate a maintenance delivery order for a specific 
SPLICE site 


6. Generate a set of mailing labels for all designated 
SPLICE sites 


M Commander Edward J. CASE, Supply Corp 
United States Navy served as SPLICE project officer from 
September 1981 to August 1984. LCDR CASE was enrolled as a 
student at the Naval Postgraduate School from October 1984 
to March 1986. Much of the research and development of the 
micro-computer knowledge-based integrated configuration 
management system is attributed to the prior knowledge, 
experience and efforts of LCDR CASE. 


Development of the micro-computer knowledge-based integrated 
configuration management system and successful 
implementation of the configuration heuristics will provide 
the NAVSUP SPLICE project manager with the capability to 


perform all assigned configuration management tasks. 


II. CONFIGURATION RULES 


The Success of the knowledge-based integrated 
configuration management system is largely dependent upon 
the accurate implementation of the numerous heuristics 
involved in the configuration of SPLICE site components. 
Heuristics which must be considered during the configuration 
process fall into two categories: 


1. basic configuration rules which apply to all con r ея 
line items under consideration 


2. Specific configuration rules which apply only to 
selective contract line items 


A breakdown and discussion of these two categories of 


heuristics is provided below. 


A. BASIC CONFIGURATION RULES 
A TANDEM processing system consists of a mainframe and 

its free standing peripherals. A small standard mainframe 
normally includes two cabinets: 

1. processor (CPU) cabinet 

2. tape cabinet 
The processor cabinet houses the processing units (CPUs) and 
associated power supplies. The tape cabinet houses a 
magnetic tape unit, Diagnostic Link control panel, 17093 
panels, battery pack or I/O power supply modules. The I70 


patch panels provide attachment points for the signal cables 


Slur lous pertpnerals (ex: CRI terminals, line printers, 
large capacity disks, etc.). Patch panels are connected to 
the device controllers residing in the system cabinets 
Brough internal cabling. 

Additional cabinets (ex: processor, tape, patch panel 
and expansion) may be added as necessary. Patch panel 
cabinets provide space for additional patch panels when tape 
cabinet capacity is inadequate. Generally, mainframe 
cabinets are fastened together side-by-side to form a single 
Et. 

When two processor cabinets are used in a system and 
both cabinets contain I/O controllers, additional space for 
ШІ опіу power supplies may be required. Additional I/O 
only power supplies may be housed in system expansion 
cabinets. 

System expansion cabinets are required for systems with 
three or more processor cabinets (or with two processor 
cabinets connected as noted above). I/O only cabinets must 
be ordered when system composition reaches four system 
cabinets.  I/O only cabinets may also be necessary to 
accommodate increased I/O device loads. 

Twenty-four I/O slots (four identical backplane 
assemblies each containing six board slots) are available in 
a NonStop TXP processor cabinet. The placement of 
controller boards may result in the need to order additional 


system or I/O expansion cabinets. 
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Include one Operations and Service Processor (OSP) with 
each system. 

Every processing unit is supplied with a standard power 
supply module. The power supply provides several DC voltage 
levels for use by the CPU, memory and I/O device 
controllers. No redundant power supply exists for the CPU. 
Redundancy at the processor unit is obtained with multiple 
processor units. 

In a simple configuration all device controllers are 
connected to both I/O channels. A simple configuration may 
be two processors with limited memory and I/O capability. 

The I/O channel for a processing unit can accommodate up 
to thirty-two I/O device controllers. Each device 
controller can control a maximum of eight devices. 

Every I/O controller has two addresses, is dual-ported 
and is connected to two processor channels. 

A one-to-one relationship exists between a controller 
address and the number of circuit boards it represents with 
the following exceptions: 

1. One 3106 disc controller consists of Еме роашие 

2. The 6303 asynchronous controller board accounts fOr 
four controller addresses regardless of the number of 
communications lines it controls. Тһе four control s 
addresses can represent from one to three boards: one 
6303 plus one or two 6304 expansion boards 

A fiber optic link (FOX) permits multiple configura c Eens 
of up to sixteen TANDEM processors each to be directly 


interfaced. One 6700 FOX controller is required per node. 
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A special backplane upgrade and replacement is included with 
the 6700 controller. The FOX controller must reside in the 
first six (leftmost) I/O slots in the system directly under 
processor number zero. Any system configuration which 
includes FOX must consider this requirement. Some such 
systems may require an additional I/O cabinet to accommodate 
all controllers. The FOX controller consumes approximately 
forty-eight amperes of «5 VDC power and may impact the power 
configuration considerations. 

A five strand one-hundred meter air plenum 
pre-terminated cable, model 7618, should be utilized. The 
7618 cable is UL approved for use in air plenum spaces 
(under raised floors, above false ceilings, etc.) without 
need for installation in conduit (UL rating VW1). The fifth 
strand is provided as an integral part of the cable and 
serves as a spare in case of breakage or intermittent 
voltage levels. 

Terminal communications to the TANDEM hosts is 
accomplished via specific processor resident ASYNC or SYNC 
controllers or is off-loaded to a 6100 controller 
(communications processor). 

Network Systems Corporation (NSC) HYPERchannel products 
enable two or more computer systems to communicate with each 
other at multi-megabit rates. A HYPERchannel network 
consists of one or more coaxial cables running the length of 


the computer room.  HYPERchannel adapters are tapped into 
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the cable and connected to the applicable hosts at 
designated high speed I/O channel ports. User or NSC 


software creates the processing sessions among the hosts. 


В. UNIQUE CONFIGURATION RULES: 

Unique rules must be applied during the configuration 
process in addition to the basic configuration rules. “tie 
additional heuristics apply to all classes of available 
options (ex: hardware, software, documentation, etc.). The 
discussions which follow highlight these additional 


considerations. 


1. Hardware 
Unique configuration heuristics described below 
apply to hardware line items. 


1. One to four CPUS require one system cabinet and one 
patch panel. Each CPU is ordered with two megabytes 
of memory and is augmented with an additional two 
megabytes of memory. 


2. Five to eight CPUs require two system cabinets, one 
patch panel and one expansion cabinet. 


3. Nine to twelve CPUs require three system cabinets, 
two patch panels and one expansion cabinet. 


4. Larger configurations are built using multiples of 
the above three rules. 


S The FLOATING POINT ARITHMETIC microcode for FORTRAN 
processing is only ordered for the two FMSO sites 
(Sites 02 and 03). 


6. An Operations and Service Processor (OSP), with a 
TANDEM 6530 CRT attached, is ordered for each 
configuration of sixteen processors or portions 
thereof. The OSP must be capable ofrusiin mai 


10. 


ШЕ: 


ІШ 


ES. 


14. 


attached Centronics Printer with a printer interface 
unit that permits switching among two OSPs. 


Each system cabinet requires three I/O power modules. 


.Each system cabinet has twenty-four slots. Each 


Sommet nic ата controbler, LP/CR controller, 
etc.) occupies two slots. 


One disk controller is needed for every two disk 
units ordered. 


Disk controllers must be ordered in pairs. 


One disk patch panel is required for every four disk 
controllers. 


HYPERchannel adapters may only be ordered by sites 
designated as stock points. Available HYPERchannel 
adapters are listed as follows: 


а 8140 - UNIVAC host interface. 


b. A150 - Burroughs B4800 host interface. An 
EBCDIC-to-ASCII Conversion RAM board is ordered 
with each A150 adapter to facilitate 
TANDEM-to-Burroughs communications. 


C. A220 - IBM host interface. 


d. A400 - Standard minicomputer interface used for 
TANDEM and PERKIN-ELMER hosts. Each adapter can 
ӘШБӘӘСЕС Әр СО Ісын CPUS: This is the only 
adapter which can exceed the one-to-one 
relationship between processors and adapters. 


e. A510 - FIPS Standard host interface. 
HYPERchannel component pricing is based upon the 
assumption that the maximum number of components 
to achieve the maximum discount have already been 
ordered. 


Bach HYPERchannel cabinet will accommodate up to 
three adapters. If TANDEM and Burroughs machines are 
greater than fifty feet apart, a HYPERchannel cabinet 
is needed for each machine. Coaxial cables in 
lengths from 500 to 5000 feet may be ordered as 
needed. 


One patch panel cabinet is required for every ten 
patch panels (any type). 
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15. 6100 Communications Subsystem Base units come with a 
cabinet with room to accommodate fifteen Line 
Interface units (LIUs) and two Subsystem Base Add-on 
units. Each Subsystem Base Add-on unit can 
accommodate an additional fifteen LIUs. Three cable 
.Size options are available for connecting the 6100 
Subsystem to hosts. Only the 60M option is ordered. 
Fach Subsystem Base unit and Add-on unit requires two 
cables. 


16. One TANDEM HYPERchannel patch panel is required for 
every four TANDEM HYPERLINK controllers. 


17. One tape controller is needed for every tape drive 
ОЕ 


18. One LP/CR controller is required for ever EERME 
printer, card reader or card reader punch unit. 


19. All TANDEM 6530 CRTs are ordered with the word 
processing Option, 


20. One ASYNC patch panel is required for each ASYNC 
controller. An ASYNC controller supports Eg 
asynchronous ports. At least two ASYNC controllers 
are required for the OSP and for redundancy. Up to 
two ASYNC extension boards may be added to each ASYNC 
controller, if needed. 


21. One SYNC patch panel is required for each BYTE SYNC 
controller. SYNC controllers are ordered in pairs 
for -redundancy 


22. No SYNC patch panels are ordered for BIT SYNC 
controllers: 


23. Communications patch panel/line monitor and ARCLI 
components are never ordered. 


24. One FOX controller is required per node. A single 
FOX cable connects two nodes. 
2. Software 
Unique configuration heuristics described below 
apply to software line items. 


1. А11 FDC software is purchased on a “per site’ basis 
(1.е., pay for the first copyvonly at any site) Mame 
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ordered on a "per processor" basis. This requirement 
includes Batch, FDC System Utilities, FDC File 
Security System, BUGPITPS SAS, System Card Reader 
Support and GFE Terminal Support packages. 


2. . TANDEM software is purchased and ordered on a "per 
processor" basis. This reguirement includes GUARDIAN 
OS, ENCOMPASS, EXPAND and COBOL packages. TANDEM 
EXCHANGE RJE HASP software can not be ordered. 


3. All 6100 software is ordered on a “per processor" 
basis. 6100 software versions must be indicated when 
ordering since versions differ for each site. 


4. DDN Service Interface software is ordered оп а "рег 
site" basis. DDN Interface Protocol software is 
ordered on a "per processor" basis. 


5. NETEX software packages (feature numbers 550801 
through 551302) do not have any warranty period. No 
maintenance uplift factor should be applied to these 
software packages. NETEX software ordered will 
correspond to the NSC HYPERchannel adapters ordered. 
Pricing for Burroughs NETEX software is set at the 
maximum discount level. Pricing for TANDEM NETEX 
software is set at the third level. Pricing for all 
other NETEX software products are set at the first 
level. 


СИ oOt awake maintenance 15 computed on a "per site" 
basis. 


7. Block Structured Language (PASCAL) and FORTRAN may 
only be ordered for FMSO Sites 02 and 03. 


8. Software components which are part of a bundled 
package may not be ordered separately. 


9. FMSO Configuration Management and Query software may 
not be ordered. 


10.  T-TEXT software must consciously be ordered. 


3. Manuals and Documentation 
Four sets of manuals are available on the SPLICE 
contract. A predetermined number of manuals has been 


identified for each site. This predetermined figure is an 


(59 


element of the input configuration file. Nevertheless, the 
actual number of manuals desired for a site must be 
specified during configuration processing. This is 
necessary Since sites may not require the predetermined 


quantity on the first delivery. 


32. Training 
Training was oriqinally planned to be ordered on a 

group basis. Several individual courses may be ordered 
either in addition to or in lieu of the group package. Sue 
an option is supported for the following courses: 

1. Hardware Overview 

2. Systems Resource Management 

3. Systems Tuning and XRAY 

4. Data Communications 

5. TANDEM Applications Language (TAL) 
The addition of courses in the future will require the 
modification of source code and the input cost data file. 


This action will only apply to courses ordered ona unit 


basis. 
5. Maintenance 
Maintenance is configured on a component and monthly 
unit basis with few exceptions. If the normal maintenance 


option is selected, preventive maintenance and on-call 
maintenance options have zero values for both quantity and 


cost. If the normal maintenance is not selected, preventive 
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and on-call maintenance options are assigned values 
according to the SPLICE contract. Emergency Per-Call 
maintenance is specified on an hourly basis. Months of 
component maintenance varies based upon the warranty period 


specified in the SPLICE contract. 


6. Other 
Site Preparation (initial site preparation and 
installation survey) charges must be specified during the 


configurat.on process if desired. 


7. Discount and Escalation Rates 

Discount and escalation rates specified in the 
SPLICE contract vary at predetermined levels. These rates 
vary based upon either elapsed time relative to the contract 
award date or the quantity of line items ordered. The 
discount and escalation rates applied to line items during 
the configuration process must be explicitly specified. The 
rates entered are added to a value of one to generate the 
Hmppropriate multiplication factor. Discount rate entries 
must be entered as negative amounts. The multiplication 
factor is then applied to a basic rate obtained from an 
input cost data file. 

The heuristics described above apply to contract 
line items of a fifteen year life cycle ADP contract. As 
ADP technology is ever and rapidly changing, new 


requirements and pricing options are negotiated between the 


on 


government and the vendor (FDC). Accordingly, поа 


to these heuristics will be necessary on a continual basis. 
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III. METHODOLOGY USED TO DEVELOP THE SYSTEM 


The idea to pursue the development of a micro-computer 
knowledge-based configuration system was fostered by the 
need to satisfy a group project for a course of instruction 
in decision support systems (DSS). A member of the group 
was the former FMSO SPLICE project manager. Familiar with 
the specifics of the SPLICE project and sensitive to the 
problems experienced by the NAVSUP SPLICE project management 
staff, he proposed the development effort. Development of 
the proposed system would satisfy two purposes: 


1. the need to complete a group project for the DSS 
course 


2. provide an automated micro-computer knowledge-based 
configuration system that would help alleviate some of 
the NAVSUP SPLICE project staff's work load. 
Additionally, the proposed system would yield a more 
accurate, consistent and reliable configuration 
process. 

The initial proposal was to develop a knowledge-based 
configuration system. No follow on development was planned 
as part of the initial development. TURBO Pascal was 
selected as the programming language of choice for the 


following reasons: 


1. all group members were familiar with the language as a 
result of exposure from a previous programming course 


2. a structured programming language was desired for the 
development effort 
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3. a language which supported screen-oriented functions 
and color was desired 


4. a language which provided quick response and ease of 
editing and compilation to reduce development effort 
and minimize frustration 

Other programming languages could have satisfied item 2 
through 4 requirements as well, but TURBO Pascal was chosen 
because of the overriding requirement of item 1. This 
requirement was felt to be of paramount importance due to 
the short development time frame involved for the course. 
Group members felt that familiarity with TURBO Pascal would 
allow the development effort to be modular and completed 
more rapidly. The system was completed and was forwarded to 
NAVSUP for evaluation and comment. 

A follow on course of instruction dealing with software 
engineering methodologies was taken. A course requirement 
called for the development of a project using a structured 
software engineering approach to software development. 
Feedback from the NAVSUP SPLICE project staff was favorable. 
Comments received indicated a strong potential for the 
system to significantly improve the currently manual 
configuration process. Follow on group development of the 
project was initiated. The group discussed the merits of 
Such a system and decided to pursue development employing 
the software engineering methodology taught in the course. 
Discussion for the remainder of this chapter will focus on 


the entire development effort from commencement of 


24 


development to completion of the integrated configuration 


management system. 


A. PROTOTYPE 

During the initial discussions and planning of the 
proposed configuration system, the major concern of group 
members was whether the vast number of heuristics involved 
in the configuration process could successfully be automated 
during the time frame of the course. In order to meet the 
completion deadline, the programming effort had to be 
divided between group members. The strategy employed was to 
break the system down into five basic functional areas. 

Each functional area would deal with each set of heuristics 
described in the previous chapter with only minor 
exceptions. The general heuristics had to be addressed for 
multiple areas and a few of the smaller areas were 
consolidated for development efficiency. 

The group strategy was to start with the first group of 
heuristics (hardware) and proceed in an incremental fashion. 
Development effort would continue until either the prototype 
system was finished or until the project was due. Since 
there were so many heuristics involved and no formal 
structured design or engineering methodology was conducted, 
there was little certainty of how much of the system would 


be developed. 
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Development commenced with the general and hardware 
heuristics. Initially, development was extremely slow and 
difficult. General and hardware heuristics encompass the 
2225 of the heuristics associated with the configuration 
process and are very complex. The incorporation of these 
areas into the system consumed the largest amount of time 
during the prototype development effort. Development 
continued sequentially by area until all areas had been 
addressed. As each area was implemented, development became 
easier as members gained confidence and heuristics became 
less complicated. 

As mentioned in the introduction, the initial goal in 
the development effort was to make the system interactive 
and as user friendly as possible. The screen oriented 
features and functions of TURBO Pascal proved to be very 
beneficial in this endeavor. The use of colors for screen 
displays helped to differentiate input fields and prompts. 
The ability to move the cursor anywhere on the screen and 
control data entry, validation and error messages formats 
also aided in this effort. 

Upon completion of the course, the prototype 
configuration system was forwarded to the NAVSUP SPLICE 
project staff for comments and recommendations. Project 
staff personnel expressed considerable interest in the 
prototype configuration system. While the configuration 


System was crude, project staff personnel were enthusiastic 
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about the potential benefits of the system. Discussions 
concerning their desire to incorporate other project 


management functions into the system were addressed. 


B. SOFTWARE ENGINEERING METHODOLOGY 

The software design course requirement to develop a 
software system using a structured methodology coincided 
closely with the receipt of the NAVSUP list of comments, 
recommendations and additional features. Further 
development of the system was accomplished using a 
programming team concept in conjunction with the software 
engineering methodology. 

The software engineering methodology used in the 
development effort is a three phased structured approach 
encouraged by Pressman: 

1. Planning - the definition, analysis, specification, 
estimation and review of a process. Planning provides 
mpre Mmminary indication of project viability in 
relationship to cost and schedule constraints 

2. Design - a process of applying various techniques and 
principles for the purpose of defining a device, a 
process, or a system in sufficient detail to permit 
its physical realization 

3. Maintenance - the diagnosis and correction of errors 
(corrective); the modification of software to properly 
interface with a changing environment (adaptive); or 
the incorporation of recommendations for newer 
capabilities, modifications of existing functions, or 


general enhancements following the successful 
development of software (perfective) 


2 


Each phase of the structured methodology is designed to 
minimize the difficulties associated With the co p e 


development effort. [Ref. 2] 


1 Planning 

The first step of the software engineering 
methodology is the planning process. During this phase of 
software development, the group commenced the detailed 
planning of the functions that were to be incorporated into 
the system. Initial discussions centered around the level 
of complexity to be attempted for the course project. 
During these discussions, comments, recommendations and 
additional features provided by the SPLICE project staff 
were reviewed and scoped for level of complexity. 

Initial planning efforts generated a proposal to 
develop an integrated interactive and user-friendly system 
that would be composed of three major functional modules: 

te Configuration; modüle 
2. Financial analysis module 


3. Configuration Management System module that would 
support report generation 


Detailed functions for each module were further specified. 
Individual member previous experience and strengths were 
evaluated. The group was organized into a programming team 
concept. Each member was assigned tasks which best 
corresponded to his level of experience and knowledge with 


respect to development tasks. 
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Once the system functional modules were identified, 
the next step involved the selection of software to 
implement the development effort. Based upon the effort 
that had been expended and the enthusiasm exhibited with the 
prototype development, a decision was made to continue 
development of the configuration module using TURBO Pascal. 
SCREEN SCULPTOR? was selected for the purpose of developing 
customized screens for the configuration module. It also 
employed a data entry and validation feature that could be 
lusorporated into the configuration module with little 
effort. LOTUS 1-2-3 was selected as the software package 
for development of the financial analysis package. This 
selection was based upon the fact that the package was owned 
by a member of the group who was familiar and experienced in 
its use. dBASE III was selected for development of the 
Configuration Management module. Reasons surrounding this 
choice were: 

1. the package was owned and readily available 
2. it could be used as a shell to call and run other 
software packages from as well as perform the 


functions of configuration management using data base 
technology 


JSCREEN SCULPTOR is a software product available from 


The Software Bottling Company of New York, 6600 Long Island 
Expressway, Maspeth, NY 11378 (718) 458-3700. SCREEN 
SCULPTOR is a programming productivity tool that enables 
programmers to design and create input screens in minutes in 
either BASIC, IBM Pascal or TURBO Pascal. 
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ӘН GE PASH CODE, a commercial screen generation software 
package was available and could support the generation 
of customized screens and perform data entry 
validation for both dBASE II and dBASE III. The use 
of such a package would help minimize development 
effort and ensure correct data entry 

4. dBASE III could support ten open files concurrently 

5. no other data base management software package was 
available that either provided the capability to 
customize screens to the degree desired and support an 
interface to FLASH CODE 

WORDSTAR was selected as the word processing software 
package that would be used to enable the user to view the 
User's Manual on-line. All packages with the exception of 
the two screen generation development packages were 
currently being used by SPLICE project staff personnel and 
required little investment in time to learn new packages or 
the outlay of funds. 

Selection of the software packages posed some 
problems which had to be overcome prior to further 
development.  LOTUS 1-2-3 and dBASE III both required 
special file formats and interfaces between input and output 
of each functional module. Special conversion procedures 
had to be developed to overcome these interface 
dücpracultries- 


AFLASH CODE is a software product available from The 


Software Bottling Company of New York, 6600 Long Island 
Expressway, Maspeth, NY 11378 (718) 458-3700. .EBASHOCODS 
1S a programming productivity tool that provides dBASE II or 
dBASE III programmers the capability to use either screens 
or pop-up windows/help menus that instantaneously flash up 
on the screen. 
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The Pascal configurer module had to be developed to 
generate an output file that would allow the viewing and 
processing of both text and numerical fields when imported 
ING ТОШ(8 |23. The output file from the LOTUS 1-2-3 
financial analysis module stripped off all text and header 
data following financial verification and saved as a ".PRN" 
data file. A dBASE III work data base had to be created 
using a structure that was compatible with the ".PRN" data 
file. This ".PRN" file was later appended to the dBASE III 
work data base and converted to a dBASE III data entry 
format. 

With the module interfaces resolved, each functional 
module was further developed and refined to identify all 
data elements involved with the functional process. Data 
flow diagrams documenting all required data elements and 
processes were generated for each functional module. Two 
data flow diagrams are provided in Appendix B to serve as 
representative examples of this process. Each data flow, 
input file and functional process was further specified in 
detail through the use of various module descriptions. An 
example of each of these description modules is provided in 
Appendix B. The formats of each of the descriptions used in 
the definition process were modifications of formats 
specified in [Ref. 2] and [Ref. 3]. A Bachman diagram, 
supplied in Appendix B, was used to document the data base 


relationships associated with the configuration management 


31 


module. The generation of all functional module data 
interdependency charts signaled the completion of the 


planning phase. 


2. Development 


With the definition of all data element 
relationships, interdependencies and functional interfaces 
defined, the group commenced the development phase of the 
methodology. Using the data flow diagrams, data flow and 
process descriptions generated during the planning phase, 
each data process or bubble was decomposed into more 
detailed sub-functional processes. 

Sub-functional processes were developed by exploding 
each bubble from the data flow diagram and decomposing the 
process to its lowest functional level through several 
layers of abstraction. The lowest levels of abstraction are 
procedure oriented and are stated in terms that can be 
directly implemented. Several guidelines for the process 
are involved and are outlined in Pressman (Ref. 2]. The 
overall objective of this decomposition process was to 
arrive at a description of each functional process to a 
level that would support modular development. Appendix B 
contains a few structure charts which are representative 
examples of the decomposition process. 

The idea behind decomposing each process to its 


lowest functional description is to ensure that the scope of 
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effect? of a module is maintained within the scope of 
control? of that module [Ref. 2]. Another concept of the 
engineering methodology designed to aid in the development 
and maintenance of software systems is that of information 
hiding’. These concepts were applied to the design phase of 
development to ensure modularity of the system. The 
structure of the system was designed in a way that would 
facilitate future maintenance. 
With all processes defined, team members began 

coding the various modules. Coding was accomplished in a 
top-down modular fashion to facilitate a phased 
implementation plan. As each module was completed, it was 
integrated into the overall system and tested to ensure 
s rate performance. Coding continued until the project 
was due for submission. At the end of the course, the 
configuration and financial analysis modules were complete. 
Ihe third module, the data base configuration management 
system, had a basic structure that would support a minimal 
number of configuration reports. This module would be 

aeons of effect of a module is defined as how other 
modules are affected by decisions which are made within the 
Module. (Ref. 2: p. 170) 

EC of control of a module is the number and degree 
of control which is exerted on other modules by the 
Semerolling module. [Ref. 2: p. 170] 

04200 hiding is the concept whereby procedures 
and data information within a module are invisible to other 


modules. This concept helps achieve modularity during 
development. [Ref. 2: pp. 156-157] 


Вэ 


finished as a follow on project under the maintenance phase. 
The system was forwarded to the SPLICE project staff for 


evaluation: 


3. Maintenance 

The structured design and development methodology 
employed in the development of the micro-computer 
knowledge-based integrated configuration management system 
proved to be very beneficial. Completion of the data base 
configuration management module was straight forward due to 
this design methodology. 

The data base configuration management system was 
completed as a follow on project for a course of instruction 
in data base design. Since a foundation already existed as 
a result of the initial system development, continued 
development fell into the category of maintenance. The 
development of the configuration management module used 
three methods of maintenance. Each maintenance category is 
defined briefly in the methodology introductory discusses 
near the beginning of this chapter: 

Continued development of the configuration 
management module was undertaken. Feedback from the SPLICE 
project staff highlighted errors which required 
correction - corrective maintenance. Also, due to contract 
negotiations and modifications, certain heuristics required 


modification - adaptive maintenance. Additionally, the data 
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base design course highlighted more efficient methods of 
accomplishing functional processes in lieu of methods used 
during the development phase of the system - adaptive and 
perfective maintenance. 

The maintenance effort and system enhancements 
proposed by the NAVSUP SPLICE project staff were reviewed 
and evaluated for level of implementation difficulty. Each 
change was classified according to the type of maintenance 
involved. A development schedule was established and 
development effort continued. 

The first maintenance actions addressed were 
corrective maintenance issues. Each potential error was 
evaluated in terms of its impact on the basic system 
structure. Errors were also evaluated in terms of whether 
the condition fell within the initial capabilities designed 
for the system. Some of the potential errors were found to 
be outside the scope of the initial design and were not 
attempted. SPLICE project staff personnel were informed of 
these conditions and were instructed on how to deal with the 
conditions. 

Changes to the initial environment were addressed 
meee. Contract negotiations are continuing and result in 
contract modification requirements. These modifications 
were evaluated to identify the degree of modification 
required to the basic system structure. While some 


modification was required, the majority of the changes 
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involved the configuration module. The decomposition of the 
logical functions to their lowest levels coupled with the 


8 9 of Seer 


high degree of cohesion" and low degree of coupling 
modules and data made maintenance almost effortless. 

The last maintenance area involved refining the 
methods by which tasks were performed. Knowledge gained 
from the data base design course identified more efficient 
means of accessing certain files. Also, certain initial 
relationships did not follow the relational normal forms 
associated with relational data base design [Ref. 4] and 
[Ref. 5]. Thus, certain files had to be restructured. 

Other changes involved eliminating unnecessary statements 
and optimizing certain functions, loops and file accesses. 
Modification of certain file accesses resulted in the 
reduction of response times in some cases by eighty to 
ninety percent. 

Completion of the data base configuration management 
module marked the final development of the micro-computer 
knowledge-based interactive configuration management system 


for the SPLICE project. NAVSUP SPLICE project Siam 


personnel have the system and are currently using the system 


Вет is a measure of the relative functional 
strength possessed by a module (i.e. a cohesive module 
should only perform one thing or function) [Ref. 2: pm 


EOS is a measure of the relative interdependencies 


between modules (i.e., the degree to which other modules are 
dependent upon interfaces and data) (Ref. 2: p. 161] 
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uu uPbIalwconftigurations. Once current sites under 
configuration are loaded to system data bases, sites 
Beevrously configured will be loaded. The SPLICE project 
manager now has the capability to configure sites, perform 


financial and "what-if" analysis and generate a wide variety 
of reports to aid in the management of the project. The 
system report generation facility also enables the project 
manager to track components by serial number and location. 
The development of the micro-computer knowledge-based 
interactive configuration management system has provided the 
SPLICE project manager with the capability not only to 
evaluate overall project performance, but also to evaluate 


the contract vendor's performance with regard to contract 


requirements. 


C. SUMMARY 

The development of the micro-computer knowledge-based 
interactive configuration management system involved several 
different development methodologies. The success of its 
development could not have been realized without the 
inclusion of all methodologies. 

реососурапа, while пос а solution by itself, identified 
several problems with the original system design and data 
entry method. It also highlighted several areas which 
required modification to achieve the goal of developing a 


user-friendly system. 
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The execution of the software engineering methodology 
described by Pressman [Ref. 2] helped to identify all of the 
functional tasks for logical incorporation into the system. 
The use of the various module descriptions identified all of 
the essential data elements, flows and processes. The use 
of these descriptions further helped to minimize development 
time and prevent needless rework.  Incremental 
implementation of completed modules kept the development 
effort on schedule. The use of commercially proven and 
tested “off-the-shelf” packages further helped to minimize 
the development effort. 

The SPLICE micro-computer Knowledge-based interactive 
configuration management system is an active system. As 
with any software system, maintenance must be performed to 
maintain the system current with its operational 
environment. The SPLICE configuration management system is 
no different. Due to a changing environment and requests 
for further enhancements to the system, a backlog of changes 
currently exists. 

Due to the methodologies used in the design and 
development of the SPLICE configuration management system, 
the backlog and future changes should be able to be 
incorporated into the system with minimal confusion or 


еттогг. 
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IV. SYSTEM EXECUTION DIALOGUE 


As discussed in previous chapters, the micro-computer 
knowledge-based configuration management system is an 
interactive and user-friendly system. Additionally, the 
system is an integrated system composed of three 
functionally separate modules: 

1. configuration module - developed using TURBO Pascal 


2. financial and "what-if" analysis module - developed 
using LOTUS 1-2-3 


3. configuration management and report generation 
module - developed using dBASE III 


Integration of the system was possible through dBASE III's 
ability to run other programs during system execution. This 
feature allowed dBASE III to be used as the shell or driver 
for the system. 

mollowing discussions describe a typical system 
execution dialogue. All screen formats mentioned or 
referenced may be found in Attachment 2 of Appendix A. The 
system has no on-line help facility other than the on-line 
User's Manual. Review of the User's Manual may only be 
accomplished from the system's opening menu (Screen 1). 
Detailed information regarding system execution is addressed 


in Appendix A. 


39 


A, SYSTEM INITIATION 

With initial installation complete and the target 
system's power on, type the command SPLICE at the DOS 
command prompt to initiate system execution. The first 
screen viewed is the Function Selection Menu - Screen 1. 
From this menu, the user may select any one of six possible 


Options: 


B. CONFIGURE -A SITE 

The first function normally performed would be to 
configure a site for SPLICE installation. This actin mE 
accomplished by selecting menu option 1 from the Function 
Selection Menu. Selection of this option invokes the Pascal 
Configuration Module. The user, having accumulated the 
applicable data for the site to be configured and recorded 
the information on a copy of Attachment 1 of Appendixes 
would commence the configuration process. 

The user would first see a module logo and version 
screen (Screen 2) followed by five data entry screens 
(Screens 3 through 8) and a final output screen (Screen 9) 
identifying the output file name to be imported into the 
financial analysis module. The data field sequence of 
Attachment 1 to Appendix A is in the sequence of data 
entries expected for screens 3 through 8. 

Screen 3 is a list of designated SPLICE sites. Screens 


4 through 8 are the applicable data entry screens. Data 
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entry is segmented into component and data types (ex: 
discount and escalation rates, hardware, software, etc.). 
The output data file name is presented as part of the final 
display tombhewcontiguwratron module (screen 8). The output 
INI COUs formatted for data entry into the financial analysis 
module. Following completion of the configuration process, 


the user is returned to the Function Selection Menu. 


C. PERFORM FINANCIAL ANALYSIS ON SITE DATA 

Financial analysis and delivery order preparation is the 
next function to be performed. Selection of menu option 2 
from the Function Selection Menu invokes the execution of 
the financial analysis module using the LOTUS 1-2-3 system. 
The output file previously generated from the configuration 
module may then be viewed. 

Several LOTUS macros, described in detail in Appendix A, 
enable the configuration module calculations and 
computations to be verified.  "What-if" analysis may also be 
performed to evaluate the impacts of system costs relative 
to options selected and/or modify a system configuration to 
coincide with the current funding environment. Screen 13 is 
a partial example of how the data is presented in the 
financial analysis module. Upon completion of the 
configuration analysis, the data file is formatted for input 


into dBASE III data base files. Following financial 
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analysis termination, the user is returned to the Function 
Selection Menu (Screen 1). 
b: INTERACT WITH THE CONFIGURATION MANAGEMENT AND REPORT 
GENERATION” SUB-sYSTEM 
Execution and interaction with the configuration 
management and report generation sub-system is invoked by 
selecting menu option 3 from the Function Selection Menu 
(Screen 1). The Process Selection Menu (Screen 14) is 
displayed and reveals nine additional options from which to 


choose. 


i Load New Delivery Order Data 


Tne most common option to select will be menu 
option 1 - load the formatted file from the financial 
analysis module to the various data bases. The process is 
menu driven requiring answers to a few questions presented 
On screens 15 and 16. The data loading process adds new 
records to three data bases. If the input file is very 
large, the loading process may be lengthy. 

Completion of loading data to the three data bases 
Signals the interim completion of the configuration process 
for a site. No further data for the site may be loaded to 
the data bases until the equipment is received at the site. 
From this point, the user may return to the Process 


Selection Menu and obtain any of several reports extracted 
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Шыл л егу б formats or return to the Function Selection 


Menu and choose another processing option. 


2.. Load Serial Number and Manual Data 

Following the receipt of ordered components at the 
applicable site, the user may load the serial numbers of the 
hardware components and the names of the accompanying 
hardware and software manuals received. This function is a 
two step process. 

Serial numbers may be loaded to the serial number 
data base by selecting menu option 6 from the Process 
Selection Menu, whereby the Serial Number Maintenance Menu 
(Screen 32) is displayed. Selection of menu option 1 
results in the presentation of the Serial Number Update 
Format screen (Screen 33). To enter the applicable serial 
numbers, the user must provide the system with three data 
elements to load the serial number data: 

1. site number 

2. effective date of the applicable delivery order 

3. feature number of the component 
Once all three data elements have been entered, the serial 
number may then be entered. This process must be iterated 
for each serial number to be loaded to the data base. Since 
neither serial number nor manual information is available 
during the initial data load process. it is necessary to 


Specify all three serial number data elements to ensure data 
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and file integrity. Following entry of the last serial 
number, the user terminates the update process by selecting 
the exit (X) option. This returns the user to the Serial 
Number Update Format screen (Screen 33). The user may 
either review the serial numbers just entered or return to 
the Process Selection Menu to initiate the loading of the 
applicable manual data. 

Following entry of the serial number data, the 
applicable manual description data may be loaded to the 
Manual data base. This is accomplished by selecting menu 
option 5 from the Process Selection Menu, whereby the Manual 
Maintenance Menu (Screen 27) is displayed. To add manual 
descriptions to the manual data base, select menu option 1. 
The Manual Addition Format screen (Screen 28) is displayed. 
To enter the manual descriptions, first enter the applicable 
site number followed by the associated feature number for 
the manual descrripbtron Ео пе очлдече 

Following entry of the last manual description, 
terminate the addition process by selecting the exit (X) 
option. This returns the user to the Manual Maintenance 
Format screen (Screen 27). The user may either review the 
manual descriptions just entered or return to the Process 


Selection Menu to initiate another process selection. 


44 


Ва Generate a Maintenance Delivery Order 


At the commencement of each fiscal year, the NAVSUP 
SPLICE project staff must initiate a delivery order to cover 
the maintenance and rental services for the current fiscal 
year for each configured SPLICE site. To accomplish this 
task, select menu option 8 from the Process Selection Menu 
(Screen 14). The Maintenance Delivery Order Generation 
Program screen (Screen 66) is presented and requires five 
inputs. First, the applicable site number for which the 
maintenance delivery is to be generated is entered. Then 
four discount or escalation rates are entered. These rates 
are based upon pre-determined terms negotiated in the SPLICE 
contract. These rates are based upon total number of 
components ordered and the elapsed time relative to the 
Contract award. 

A new formatted file (NEWDO.PRN) is generated to be 
imported into the financial module where computations and 
calculations are verified in the same manner discussed in 
section C above. Once the data has been verified 
financially correct in the financial module, the maintenance 
delivery order is ready to be printed. Program execution 
then automatically returns the user back to the Process 


Selection Menu where another process selection may be made. 
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4. Generate a Report 


A variety of eight different reports are available 
from the report generation sub-system. Reports are 
available tor. 

1. the overall project 
2. a particular site 
3. a delivery order issued on a particular date 
Within these categories, reports may furtner be broken down 
by: 
a. equipment type 
b. serial number 
Delivery order equipment type reports may be obtained either 
with or without unit price data “mmm themsepork: 

The generation of any one of the eight available 
reports is obtained by initially selecting menu option 7 
from the Process Selection Menu, whereby the Report by Type 
Menu (Screen 36) is displayed. Depending on the type of 
report desired, further menu options are selected. Screens 
36 through 65 are examples of the various menus and report 
formats that are obtainable from the report generation 


system but are not discussed in detail. 


E. REVIEW THE ON-LINE USER'S MANUAL 
The on-line User's Manual may be viewed any time the 
user is viewing the Function Selection Menu (Screen 1). As 


stated before, no on-line help facility is available during 


46 


functional module execution. The on-line User's Manual uses 
WORDSTAR as the word processing package to display system 
execution instructions to the user. As such, the ability to 
jump to a specific page or process description does not 
exist. Following termination, the user is returned to the 


Function Selection Menu (Screen 1). 


TERMINATE SYSTEM EXECUTION 

When all system functions have been performed and the 
user desires to terminate system execution, two options are 
КО л аре. Menu options 5 and 6 on the Function Selection 
Menu (Screen 1) allow the user to either terminate system 
execution and return to the dBASE III environment (dot 
prompt) for further interactive queries or terminate system 
EUScution and return to the DOS operating environment. The 
most common selection will likely be to terminate system 


Exccubion and return to the DOS operating environment. 
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V. COST BENEFIT AND EFFECTIVENESS 


Prior во С development of the micro-computer 
knowledge-based integrated configuration management system 
for the NAVSUP SPLICE project staff, the first eight ofa 
possible sixty-two initial site configurations were 
processed in a semi-automated fashion. While LOTUS 1-2-3 
was used as the medium to produce the final form delivery 
order, a considerable amount of the heuristic processing 
still was manual. The developed system eliminates all such 
manual processing, except for gathering the initial sizing 
study input data. 

Within the NAVSUP SPLICE project staff, one mid-grade 
GS-12 government employee is currently responsible for all 
SPLICE site configuration processing, project configura caman 
management and vendor contract performance monitoring. 
Average annual salary for this grade level for a step five 
position is approximately thirty-six thousand dollars. 

In the current phase of the project life cycle, sites 
are being configured for their initial equipment and 
associated software components. Existing sites with initial 
configurations require maintenance delivery orders generated 
to support continuing maintenance services on an annual 
basis. As mentioned in the introduction, errors discovered 


in delivery orders submitted to the vendor for processing 
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are corrected, with an additional charge!? levied upon the 
government for the additional service. Due to the minimum 
number of sites that have been configured and are in 
operational status, there currently is little configuration 
management being performed. 

To evaluate the benefit and effectiveness of the 
developed system, certain (worst case) assumptions are made: 


1. based upon previous experience, each delivery order 
supplied to the vendor will contain errors 


2. the government will incur a five thousand dollar 
additional charge for vendor corrections to initial 
configuration delivery orders containing errors 

3. the government will incur a one thousand dollar 
additional charge for vendor corrections to 
maintenance delivery orders containing errors (no 
experience exists to evaluate the accuracy of this 
assumption and is therefore an anticipated worst case 
assumption) 

Since only a few of the designated sites are currently 
operational, the one GS-12 employee has managed to keep pace 
with the work load. Without the development of the 


micro-computer knowledge-based integrated configuration 


management system, this effort would not be possible and 


1 : | 
E charges of up to five thousand dollars per delivery 


order to correct existing errors have been experienced. 


49 


would most likely require the hiring of another lower grade 


11 


employee on a full time basis in the future: 


During the next two calendar years, the remaining 
initial Site configurations аге бое processed. |? 
Figures based on the worst case assumptions stated above, 
suggest that the developed system has the potential to yield 
savings of close to two-hundred and fifty thousand dollars 
for the initial configuration process alone. Since each 
site must have a maintenance delivery order generated each 
fiscal year to account for increases or decreases in 
maintenance rates for services, the potential exists to 
realize additional savings of approximately sixty thousand 
dollars for each remaining year of the project life cycle. 

The SPLICE contract contains predeterminedď' discount and 
escalation rates which were negotiated and written into the 
contract. Certain discounts depend upon the quantity of 
components previously ordered and are graduated according to 


predetermined procurement levels. The ability of the GS-12 


employee to currently identify these discount levels is 


ones all SPLICE sites have been configured for initial 


equipment and component installation, configura cman 
management within the project will come to the forefront. 
Due to the large number and variety of components that may 
exist for any site which can have an impact on the discounts 
that are applicable to component, this phase of contract 
monitoring and execution becomes critical in terms of cost 
effectiveness. 


ее» twenty sites are scheduled for 


configuration during CY 1986 and approximately thirty STESS 
are scheduled for configuration during ea oF 
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Eesusishedosolely through a manual process. Each delivery 
order previously issued has to be manually totaled to arrive 
at each component's project procurement total. Through the 
developed system's report generation facility, potential 
discounts can be identified in a matter of seconds. The 
potential savings that may be realized in this manner are 

Ж РЕСІСПІС to quantify. I feel that it is safe to say that 
over the life cycle of the project, substantial savings as a 
result of this new capability can result. 

The developed system provides the NAVSUP SPLICE project 
staff with the ability to monitor the vendor's performance 
relative to contract specifications and perform 
configuration management for the overall project. While the 
contract provided a configuration management package line 
item for these services, development of the system precludes 
the need to procure the option priced at roughly one-hundred 
thousand dollars. 

The developed system provides the project staff with 
extensive capabilities needed to properly execute their 
functions as overseers of the contract and does so in an 
automated and efficient manner. These capabilities are 
believed to be developed to a level that will allow the 
existing project staff employee to perform these functions 
in roughly half the time experienced prior to system 


implementation. This increased efficiency should realize a 
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minimum savings of approximately eighteen thousand dollars 
each year for the project staff budget. 

As seen from the above analysis, the development and 
implementation of the micro-computer knowledge-based 
integrated configuration management system for use by the 
NAVSUP SPLICE project staff provides a more efficient method 
with increased capability to effectively execute project 
manager responsibilities and monitor vendor performance. 
Potential savings realized through the use of this system 
will be at least eighteen thousand dollars annually for the 
next few years with the potential to save two-hundred and 
fifty thousand in the initial configuration process and 


sixty thousand dollars in annual maintenance modifications. 
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1.0 Introduction. 


This manual is designed to provide information and 
guidance to the SPLICE integrated system user? The 
integrated system components include: 1 - the SPLICE System 
Configurer, 2 - the LOTUS 1-2-3 financial and" what 
analysis system, 3 - the dBASE III Configuration Management 
System, and 4 - the Wordstar on-line User's Manual. 


1.1 Background. 


The Naval Supply Systems Command (NAVSUP) conceived and 
developed the Stock Point Logistics Integrated 
Communications Environment (SPLICE) project. The SPLICE 
project purpose is to: 


a. Provide state-of-the-art local and long haul 
telecommunications capabilities to 62 NAVSUP Stock Points. 


b. Provide interactive and distributed ADP processing 
capabilities to SPLICE sites. 


c. Provide capacity relief to aging Burroughs hosts at 
the Stock Points. 


d. Standardize and upgrade, via mass replacement, the 
myriad of minicomputers existing at Stock Forme. 


NAVSUP initiated a competitive solicitation for тапта 
tolerant" hardware and software to achieve these goals. Тһе 
solicitation was completed in November 1983. The winning 
vendor, Federal Data Corporation (FDC), proposed TANDEM 
hardware and software to meet most of the solicitation 
processing and local communications requirements.  FDC 
proposed Network System Corporation hardware and software to 
meet the local inter-host communications requirements. 


1.2 Why The System Configurer and Configuration Management 
system. 


Shortly after the SPLICE contract award, hardware and 
software components had to be ordered. NAVSUP faced a 
dilemma. Only a few SPLICE personnel had worked closely 
with the SPLICE acquisition benchmark and negotiations. 
These few people were the only personnel that had sufficient 
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knowledge of the systems to configure and generate delivery 


orders. These personnel developed initial orders by hand to 
meet the immediate need. Many minor errors were encountered 
with these initial orders.  FDC corrected and returned the 


orders to the government and received additional 
compensation for their efforts. 


This manual configuration process was later automated 
using a software product called SUPERCALC2. It has 
subsequently transitioned to LOTUS 1-2-3. The basic method 
of developing these orders remained virtually manual. These 
few SPLICE personnel, with FDC assistance, developed a 
ВЕНЕ of "rules of thumb" used to configure individual site 
systems. Many of the original SPLICE group have moved on, 
taking their knowledge of the systems with them. 


This SPLICE Configurer and Configuration Management 
System software is a knowledge based system designed to 
codify these "rules of thumb". This integrated system will 
enable NAVSUP to develop and maintain SPLICE configurations 
and delivery orders and perform configuration management on 
the project. Three software products were created in this 
phase of development to: 


a. Configure initial SPLICE site systems by 
answering a series of questions.  SPLICE.COM (written in 
TURBO Pascal) produces structured delivery orders that must 
be imported into LOTUS 1-2-3.  LOTUS 1-2-3 performs 
financial review and analysis before loading the dBASE III 
Configuration Management data bases. 


b. Restructure the SPLICE.COM output file into 
LOTUS 1-2-3 format. A series of macros assist in the 
regeneration of the delivery order into LOTUS standard 
formula format. Following the conversion, three options 
exist: 1 - print the delivery orders, 2 - prepare archival 
files, or 3 - prepare the output file needed for the 
dBASE III Configuration Management system. 


C. Restructure the LOTUS 1-2-3 output file into 
dBASE III format. dBASE III command language modules import 
and convert the LOTUS output file into dBASE III format. 
They also either generate or update the three dBASE III 
Configuration Management data bases. This allows the user 
to generate selected configuration management reports from 
the three data bases. MAINTDO.PRG, a dBASE III module, 
generates maintenance delivery orders from the configuration 
management data bases. These maintenance delivery orders 
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must be imported into LOTUS 1-2-3 for final financial review 
and analysis. 


2.0 Input Data. 


The following paragraphs describe the integrated system 
data input requirements. The following discussion describes 


the files required to execute the system and the associated 
screen formats. 


2! 


SPLICE System Configurer and Configuration Management 


System Files. 

The SPLICE System Configurer and Configuration 
Management System can only be run on a hard disk system, 
with the following minimum files (refer to Attachment 3 for 
System installation procedures): 

GROUP 1 FILE-IDs (SPLICE Configurer) 
асы b. CONFIG SIT 


Ce. “oP EECE CON d. ры Е 


GROUP 2 FILE-IDs (LOTUS 1-2-3 Financial Analysis) 
e. азе {Associated files Гог МЕ rg 
version 1A not shown but are 


also required.) 


Г. SKELETON WKS а. MAINTORD.WKS 


GROUP 3 FILE-IDs (dBASE III Configuration Management System) 


he DBASE. COM (Associated files for dBASE III 
version 1.1 not shown but are 
also required.) 


i. CONFIG.DBF j. CONFIG.NDX k. CONFMOD.PRG 
1. CONFREV.PRG m. CONFUPD.PRG n. DATERPTS.PRG 
o. DELAY.PRG p. DESCRIP.DBF q. DESCRIP.DBT 
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ко. DESCRLEANDX See DESCREPT . SER wae DESPMOD. PRG 
ш 3DESPPISSV.PRG ше DESPPUPD.PRG м. EFEAT.NDX 
E F.OPDTNPC  PRG S EOPDTPRC  PRG ZONEOPPINPITCPRG 
22. EFEOPSTRPT. PRG ВЕ ТЕБЕ сс EOULP CMD] ERG 


dd. EQUIPDAT.NDX ee. EQUIPPRJ.NDX к -ЕОПТРЕНУ РЕКС 
eo. SOUTPREV. SCR OORT EOUTPSDO. NDX Ilie EOULPSTIINDX 
RES EOD PPP. PRG kk. EQUIPUPD.SCR 1l. FLASHUP.COM 
mm. MAINMENU.PRG nn. MAINMENU.SCR оо. MAINTDO.PRG 
pp. MAINTDO.SCR qq =MANWAL .DBF rr. MANUALS. SCR 
ss. MANULADD.PRG tt. MANULCMD.PRG uu. MANULDEL.PRG 
vv. MANULREV.PRG ww. MANULSIT.NDX xx. MANULUPD. PRG 
yy. MKLABELS. PRG zz. MKLABELS.SCR aaa. MNLSTRPT.PRG 
bbb. NEWDOADD.PRG ccc. NEWDOCMD.PRG ddd. NEWDOCVT. PRG 
eee. NEWDOCVT.SCR fff. PROJRPTS.PRG ggg. REPORCMD. PRG 
hhh. REPORTS.SCR iii. SELECTOR.PRG jjj. SELECTOR.SCR 
ШІРУ ooRTALNOS DBF 111, SERIALNO.SCR mmm. SERNOBLD.PRG 
ви ЭЕКМОСМр.РЕС ооо. SERNODAT.NDX ppp. SERNOFEA.NDX 
ОВ ЪВЕНОРЕШ МЮХ rrr. SERNOREV.PRG sss. SERNOSIT.NDX 
IUS T ERNOUPDECPRG uuu. SITENAME.SCR vvv. SITERPTS.PRG 
www. SNODTRPT.PRG xxx. SNOPJRPT.PRG yyy. SNOSTRPT.PRG 
2 5РІІСЕ.ВАТ аааа. ЭРЬТСЕ. МТМ Dobbs. ТЕБ-ЬВЕ 
wocc. NEWJOIN.DBF 
Several of the dBASE III command language modules 
Pequire considerable time to execute. An IBM-PC/XT 


operating with a clock speed of 6 MHz or greater or 
IBM-PC/AT provides better performance. 
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Three additional TURBO Pascal source code files are 
provided since the Configurer system was developed in 
Borland International's TURBO Pascal and Software Bottling 
Company's SCREEN SCULPTOR’: 


GROUP 1 FILE-IDs 


а. ЭРЕТЕВФЕАВ D. SPEICETESS C. SPLICE? TEER 


GROUP 1 files must reside on a subdirectory named 
\TURBO. GROUP 2files must reside on a subdirectory named 
\LOTUS. Group 3 files must reside on a subdirectory named 
\DBASEIII. The file USERS.MAN must be present on a 
subdirectory named \WORDSTAR if the User's Manual is viewed 
on-line (Function Selection Menu option 4). A version of 
WORDSTAR must also exist on the subdirectory. 


Software Bottling Company product FLASH CODE? must be 
purchased to run the dBASE III Configuration Management 
System. All command language modules in the dBASE III 
Configuration Management System use a memory resident 
program FLASHUP.COM. FLASHUP~ gives dBASE III the extra 
capabilities of instantly flashing up screens and instantly 
popping up windows. Load this command module into the 
computer memory before running dBASE. The SPLICE.BAT 


1 SCREEN SCULPTOR is a software product available from The 
Software Bottling Company of New York, 6600 Long Island 
Expressway, Maspeth, NY 11378 (718) 458-3700. SCREEN 
SCULPTOR is a programming productivity tool that enables 
programmers to design and create input screens in minutes in 
either BASIC, IBM Pascal or TURBO Pascal. 


2 FLASH CODE is a software product available from The 
Software Bottling Company of New York, 6600 Long Island 
Expressway, Maspeth, NY 11378 (718) 458-3700. FLASH CODE 
is a programming productivity tool that provides dBASE II Or 
dBASE III programmers the capability to use either screens 
Or pop-up windows/help menus that instantaneously flash up 
on the screen. 


3 FLASHUP is a memory resident program supplied with FLASH 
CODE that enables dBASE II or dBASE III programmers со Ше 
Screens and pop-up windows/help screens which instantly 
flash up on the screen rather than the dBASE painting 
method. 
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command batch file automatically accomplishes this process. 
FLASHUP is licensed to individuals for use along with either 
dBASE II or dBASE III programs and may be moved from one 
computer to another. Any number of people may use FLASHUP, 
providing there is no possibility of using it concurrently 
in two or more locations. 


Both Software Bottling Company products, SCREEN 
SCULPTOR and FLASH CODE must be purchased to perform system 
maintenance on system screens and windows. 


2.2 System Preparations. 


Fill out a copy of Attachment 1 before executing the 
SPLICE Pascal Configurer and Configuration Management System 
modules. Having this information before beginning a session 
will greatly facilitate system use. 


Turn on the IBM-PC AT target system and the 132 column 
printer's power. Ensure that the minimum required software 
listed above is loaded on the active hard disk 
Bubdirectories specified. Make subdirectory \DBASEIII the 
default directory. 


2.3 System Execution. 


K ec o спе SPLICE Pascal Configurer and Configuration 
Management System by entering the command SPLICE at the 
ее prompt (ex: C^SPLICE). 


Several copyright notices will appear on the screen 
after a few seconds delay for system startup. The processes 
described below are then available: (See Attachment 2 for 
screen formats). 


Screen 1: The Function Selection Menu is the opening 
screen for the integrated system. Six options exist from 
which to choose. Option 1 permits the configuration of a 
SPLICE site. Option 2 uses LOTUS 1-2-3 to perform financial 
or "what-if" analysis. Option 3 opens the dBASE III SPLICE 
Configuration Management System. Option 4 reviews the 
User's Manual on-line. Option 5 returns the system to the 
dBASE III system prompt. Option 6 returns the system to the 
DOS prompt. The following discussion is limited to options 
T through 4. Only entries in the range 1 - 6 are valid. 

The default value is 1. 
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2.3.1 FUNCTION 1: Execute the Pascal Configurer 


Select option 1 (from the Function Selection 
Menu - Screen 1) to configure a SPLICE site. If the 
Function Selection Menu is not displayed, select the 
"Return to " option of the current menu until the и ms 
Selection Menu appears. If a process is active, select the 
option that terminates the process. Опсе а menu appears, 
select the "Return to " option of the current menu опса 
Function Selection Menu appears. Select option 1 when the 
Function Selection Menu appears. The first screen of the 
SPLICE Pascal Configurer (Screen 2) appears. 


Screen 2: The opening screen of the Pascal configurer 
module requires no input. 


Screen 3: A list of sites which may be configured 
appears. Insert an integer value between 01 and 58 to 
select a currently designated site. Site numbers 59 through 
62 are reserved for future designation. Site Number 23 
(NAS Oceana) is deactivated and no longer 1$ а designated 
SPLICE site. 


Screen 4: Enter the discount and escalation rates, 
output file name, number of months of maintenance, and 
effective delivery order date. Data input ranges apply as 
described below: 

а. .- FDC SNA Interface Discount Rate: 0.00 — 2220 

b. Non-LCN Purchase Discount Rate: 0.00 - 9.99 

C.  LCN Purchase Discount Rate:www0c00 .- 9m 


a SPLICENet Software Maintenance Discount 
Rate: 0.00 - 9.99 


e. SPLICENet Software Purchase Discount 
Rate: 0.00 - 9.99 


f. Emergency Maintenance Escalation Rate: 0.0 - 9.9 


g. LCN Hardware Maintenance Escalation 
Rate: 0.000 5-92 322 


h. LCN Software Maintenance Escalation 
Rate: 0.000 - 9.999 
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ENEPDSsteblatron Escalation Rate; 0.000 - 9.999 

iw training Escalation Rate: 0.00 - 9.99 
Documentation Escalation Rate: 0.00 - (-9.99) 
1. Maintenance Escalation Rate: 0.000 - 9.999 

m. Output file name: any 8 alphanumeric characters 
n. Hardware Maintenance Months: 0 - 12 

ЕН) Effective Date: 01/01/84 = 12/31/99 


On entry of the effective date, confirm the input 


memes by entering a "Y" to the prompt " Do you accept the 
input values thus far? Yes or No ". The Default value is 
DN É 


Screen 5: Enter the hardware quantities suqqested by 
the Navy Fleet Material Support Office Sizing Study, as 
transcribed to Attachment 1. The following data input 
ranges apply: 

a. Processors: 0 - 256 

b. Centronics Printers: 0 = 12 

с. TANDEM CRTs: 0 - 999 

d. 128 MB Disks: 0 - 128, in EVEN quantities 

e. 240 MB Disks: 0 - 128, in EVEN quantities 

f. 540 MB Disks: 0 - 128, in EVEN quantities 

а. Non-6100 ASYNC Controllers: 0 - 64, There should 

be at least two in the initial order for each OSP; 
subsequent quantities are at the user's discretion. 

А. Non-6100 ASYNC Extension Boards: 0 - 2 

Epit SYNC Lines: 0 - 128 

j. Byte SYNC Lines: 0 - 128 


К. Tri-Density Tape Drives: 0 - 128 
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l. | Reader/Punches: 0 - 12 


m. Card Readers: 0 -12 
n. 1000 LPM Printers: 0 - 16 
©. 600 LPM Printers: O - 16 


p. LCN Coaxial Cables (Trunks): O - 2. Input isi mm, 
allowed for sites designated in file CONFIG.SIT as 
Stock Points (Si: 


q. 6100 Line Interface Units (LIUs): O - 256 


r. LCN Interface Adapters (multiple entries): 0 - 256. 
Input is only allowed for sites designated in file 
CONFIG.SIT as Stock Pointo iion: 


S. Cabinets: 0 - 16 for computed; 0 - 8 for extra. 
The system computes the required numbers for the 4 
types of cabinets and presents this in the COMP 
field. Additional quantities may be entered in the 
XTRA field within the allowed ranges specified 
above as desired. 


t. Max Distance Between Computers: A - F. Input is 
only allowed for sites designated in file 
CONFIG.SIT as Stock Points 05) 


On completion of the Max Distance input value, confirm 
the input values by entering a "Y" to the prompt " Do you 
accept the input values thus far? Yes or No " The 
default value is "N". 


Screen 6: Select various software packages and the 
number of both NETEX and SPLICENet software maintenance 
months desired. The system only accepts "Y" or "N" entries 
for software packages. The system only accepts integers in 
the range 0 - 12 for software maintenance months entries. 
Network Maintenance Facility (NMF) software is divided into 
either a group package or individual packages. If the user 
selects the group package, none of the individual packages 
can be selected. The cursor moves directly to the NETEX 
Maintenance Months field. If the NMF group package field 
response is "N", the user may select each individual package 
if desired. On completion of the entry for the number of 
months of SPLICENet software maintenance desired, confirm 
the input values by entering a PY RE I PB v OE Do you 
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accept the input values thus far? Yes or No 
The default value is "М". 


Screen 7: Enter the quantities for system 
documentation, training group and courses, and months of 
Emergency Per-Call Maintenance.  Indicate whether to include 
Site Preparation charges. 


The allowable range for documentation and training 
courses is 0 - 20. The allowable range for Training Groups 
15 1 - 5. The allowable range for months of Emergency 
Maintenance is 0 - 12. The allowable inputs to Site Prep 
charges are "Y" or "N". On completion of the Site Prep 
charges, confirm the input values by entering a "Y" to the 
prompt ' Do you accept the input values thus far? Yes or 
No ". The default value is "N". 


Screen 8: The configurer software module sign-off 
screen requires no input. The system displays the output 
file name used for this configuration run in the sign-off 
message. 


The system returns to the Function Selection Menu 
(Screen 1) to await the next selection. 


2.3.2 FUNCTION 2: Perform LOTUS 1-2-3 Financial or 
What-If" Analysis 


Discussion of the following actions is predicated on 
the user having a well developed understanding of the 
LOTUS 1-2-3 system. Terminate the system and review any of 
several available books detailing the system's capabilities 
and operations before continuing if you are not familiar 
with that software product. 


Select option 2 to begin LOTUS 1-2-3 financial or 
“what-if" analysis processing. Insert a LOTUS system disk 
in drive A (or have a product such as ZERODISK installed) 
to start the LOTUS system. If the Function Selection Menu 
ЕЕ displayed, select the "Return to " option of the 
current menu until the Function Selection Menu appears. If 


4  ZERODISK is a software product available from Quaid 
Software Limited, 45 Charles Street East, Third Floor, 
Memento, Ontario M4Y 1S2 (416) 961-8243. тета product 
that enables users to run software applications without the 
need to place master disks in the "A" drive required by some 
Programs such as dBASE III, LOTUS 1-2-3, etc. 
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a process is active, select the option that terminates the 


process. Once a menu appears, select the "Return to " 
option of the current menu until the Function Selection Menu 
appears. Insert a LOTUS system disk in drive A and then 


select option 2 when the Function Selection Menu appears. 


Following a message concerning changing the LOTUS 
active file directory, the first screen of the LOTUS 1-2-3 
system (Screen 9 - See Attachment 2 for screen formats) 
appears. The system experiences a few seconds delay for 
system startup. 


NOTE: a backslash (\) followed by a single letter indicates 
a LOTUS macro. Execute а macro by simultaneously 
depressing the ALT and letter keys. A slash (/) followeama 
a letter indicates a LOTUS command. [CR] denotes the 
striking of the RETURN or ENTER key. 


Screen 9: The opening menu of the LOTUS 1-2-3 system 
requires no input. Processing continues with the depression 
of any key. 


Screen 10: The empty LOTUS 1-2-3 spreadsheet screen 
appears. Change the default subdirectory in LOTUS if it is 
not subdirectory C:\DBASEIII. Enter LOTUS commana 
/WGDDC:\DBASEIII{CRJQ to change the default subdirectory. 
Enter LOTUS command /FR to retrieve a file. Screen 11 
appears. Use the arrow keys to point to SKELETON or 
MAINTORD or type either SKELETON or MAINTORD. SKELETON Wks 
is the formatting file for outputs from the Pascal 
Configurer module. This file includes the macros developed 
for recalculation analysis beginning in cell A200. MAINTORD 
is the formatting file for outputs from the Maintenance 
Delivery Order Generation module executed from within the 
dBASE Configuration Management System. This file includes 
macros Similar to those beginning in cell A200 of file 
SKELETON.WKS. If the user selects the SKELETON worksheet, 
Screen 12 - the formatted spreadsheet, appears. 


Screen 13: Enter the LOTUS command /FIN{file name} or 
the macro \F{file name} to begin the importation process. 
Enter an output file name generated by the Pascal Configurer 
module. It may either be typed in without the Z 
extension or selected by pointing to the file name with the 
arrow keys. 


No further screens for the LOTUS processes are shown 


here. All screens appear the same, showing different views 
of the memory resident spreadsheet. 
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Ше во Оа па LOTUS macros in file SKELETON.WKS have 
provided for easier processing: 


а VC 
БЕ A\D 
em ХЕ 
ce ХЕ 
= T 
в. XM 
ae XN 
в. ХО 
1. АР 


Changes column numeric entries to currency. 
Execute the macro anywhere in the worksheet. 


Deletes indicated rows. Place the cursor at 
the first row to delete before entering ХО. 
Point to the last row to delete using the 
arrow keys. 


Deletes all PRN files. Execute the macro 
anywhere in the worksheet. 


Imports a ".PRN" file at the cursor position. 
Execute the macro anywhere in the worksheet. 


Recalculates the Total Component Installation 
Price for a row. Place the cursor in the top 
row cell of the newly created temporary column 
(e.g., hardware, software, etc.). Copy 
subsequent entries using /C versus using NI. 


Recalculates the Total Component Purchase 
Price for a row. Place the cursor in the top 
row cell of the newly created temporary column 
(e.g., hardware, software, etc.). Copy 
subsequent entries using /C versus using NM. 


Recalculates the Total Hardware Component 
Maintenance Price for a row. Place Lhe cursor 
in the top row cell of the newly created 
temporary column (e.g., hardware, software, 
etc.). Copy subsequent entries using /C 
versus using VN. 


Recalculates the Total Software Component 
Maintenance Price for a row. Place the cursor 
in the top row cell in the newly created 
temporary column (e.g., hardware, software, 
etc.). Copy subsequent entries using /C 

Кет == есип МО 


Prepares the worksheet for output to the dBASE 


process. Execute the macro anywhere in the 
worksheet. 


Из 
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j. NR - Names a macro. Execute the macro in the cell 
of the new macro identifier. 


k; А5 - Sum indicated columns. Execute the macro Sk iaaii 
the cell where the total figure is desired. 
Use arrow keys, followed by the RETURN or 
ENTER key, to indicate the beginning and end 
of the summary area. 


1. \T - Recalculates the Component Downtime hourly 
rate. Place the cursor in the top row cell in 
the newly created temporary column (e.g., 
hardware, software, etc.). Copy subsequent 
entries using /C versus using \T. 


m. \U - Recalculates the Component System Downtime 
hourly rate. Place the cursor in the top row 
cell in the newly created temporary column 
(e.g., hardware, software, etc.). Copy 
subsequent entries using /C versus using АШМ. 


Perform formula recalculation one column at a time 
starting from the left. Insert a new column to the left of 
the Total Purchase Price, Total Component Maintenance, Total 
Installation Price, and two Downtime Credit columns. 

Execute the MM, XN, NO, \I, \T, and \U macros dessus M 
above in the first entry of each applicable column. Copy 
the resulting formula down the remainder of the column. Sum 


the column using the MS macro. When results are 
satisfactory, move (/M) the new column over the old column 
and delete (/WDC) the now blank column. Re-sum (no macro 


provided) the summary financial data at the bottom of the 
Spreadsheet. 


Perform "what-if" analysis, using the macros provided, 
following formula recalculation. Exercise extreme care when 
changing component quantities! If component quantity 
changes are made, print and review the proposed changes. 
After reviewing the changes, reverify the accuracy of the 
changes using the Configurer system. Use the Configurer to 
ensure that all configuration rules are properly followed. 


Save an archival copy of the worksheet with the 
/FS{file name} command. Print a delivery order with the /PP 
command. Strip off the worksheet headers, non-hardware and 
software line items, section cost totals, summary notes and 
cost information with the \D macro. Print the remaining 
contents of the spreadsheet (less macros) with the /PF{file 
name) command or \P macro. 
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Terminate 1-2-3 by entering the LOTUS command /QY[CR]. 
The system returns to the Function Selection Menu (Screen 1) 
to await the next selection. 


The following processing is accomplished if the file 
MAINTORD is selected. The system automatically loads the 
NEWDO.PRN file created from the dBASE III Maintenance 
Delivery Order Generation module. The cursor moves to the 
appropriate field to accept entry of the effective date. 
Use the macros stored at location A200 to verify and 
complete the maintenance delivery order following entry of 
the effective date. 


The following LOTUS macros on MAINTORD.WKS have been 
provided for easier processing: 


a. \C - Copies header information. 
во = Deletes the first column. 


с. \0 - Automatically imports the maintenance delivery 
order called NEWDO.PRN. 


Ат - Adds rows for software headers. 


e. XN - Recalculates the Total Hardware Component 
Maintenance Price for a row. Place the cursor 
in the top row cell in the newly created 
temporary column (i.e., hardware and 
software). Copy subsequent entries using /C 
versus using VN. 


f. \O - Recalculates the Total Software Component 


Maintenance Price for a row. Place the cursor 
in the top row cell in the newly created 
temporary column (i.e., hardware and software, 


etc.). Copy subsequent entries using /C 
Versucsmusinag NO. 


g. \R - Names a macro. Execute the macro in the cell 
of the new macro identifier. 


в. \S - Sum indicated columns. Execute the macro from 
the cell where the total figure is desired. 
Use arrow keys, followed by the RETURN or 
ENTER key, to indicate the beginning and end 
of the summary area. 


Z5 
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Locate the first software item in the body of the 
spreadsheet (feature number between 510101 and 660101, 
860101 or 860201). Move the cursor to the corresponding 
location in column "A". Execute the (ҮІ паста с си 
blank rows at the location. When complete, move the cursor 
down 4 rows and execute the /C LOTUS command to copy headers 
to the beginning of the next section. 


Verify the calculated Component Factored Maintenance 
cell for each data entry. Move the cursor to the first 
entry in the hardware section of the Component Factored 
Maint column and execute the command /WIC[CR]. This will 
add an additional column to the spreadsheet. Execute macro 
\N to automatically recalculate the maintenance amount at 
the first hardware component cell. Execute the LOTUS 
command /C{CR]{DOWN}.{DOWN to the end of the hardware 
column} [CR]. This copies the formula in the first cell to 
all following cells. Use the \S macro to sum the column and 
copy the same formula to the next cell to the right with the 
/C LOTUS command. 


Comparison of these two sums may show minor rounding 
differences. Use the /M command to move the desired celia 
one column to the right to retain the LOTUS figure. Use the 
same procedure in the software section, substituting the NO 
macro for the XN macro. Delete the unnecessary column with 
the /WDC command following the movement of the data to the 
newly created column. | 


When validation of all entries is complete, manually 
enter financial appropriation data and end of delivery order 


comments.  Manually recalculate a new System Downtime Credit 
Factor value using data supplied on the spreadsheet plus the 
installation cost. Save or print the new delivery order, as 
desired. 


Terminate LOTUS 1-2-3 by executing the LOTUS command 
/QY[CR]. The system returns to the Function Selection Menu 
(Screen 1) to await the next selection. 


2.3.3 FUNCTION 3: Execute the dBASE III Configuration 
Management System 


Select menu option 3 (from the Function Selection 
Menu - Screen 1) to invoke the dBASE III Configuration 
Management System. If the Function Selection Menu is not 
displayed, select the "Return to " option of the current 
menu until the Function Selection Menu appears. Ifa 
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Бизсевв 15 active, select the option that terminates the 
process. Once a menu appears, select the "Return to " 
eeeron of the current menu untilethesBunctiom Selection Menu 
appears. Next select menu option 3. The first screen of 
the dBASE III Configuration Management System (the Process 
Selection Menu - Screen 14) appears. 


Screen 14: Ten menu options (0 - 9) exist. Processing 
continues based on the selection entered. Option O returns 
the system to the Function Selection Menu (Screen 1). The 
remaining options are discussed in order. 


2.3.3.1 Load a new Delivery Order into the Configuration 
Management System. 


Select menu option 1 (from the Function Selection 
Menu - Screen 1) to load a new delivery order generated by 
the SPLICE Configurer. The Delivery Order Load Menu 
(Screen 15) appears. Next select menu option 1 to commence 
the loading process for the new delivery order. 


Screen 15: Select one of two options: 1 - load a new 
delivery order or 2 - return to the Process Selection Menu 
(Screen 14). 


| Screen 16: Enter the LOTUS output file name. A file 
name may be from one to eight alphanumeric characters long. 
The default file name supplied by the system is 

КОСЕ РЕМ". The system automatically provides the 
extension. If the file name entered cannot be found on the 
default subdirectory, re-enter a valid name. An error 
message appears on the status line if the file name entered 
cannot be found. After three invalid entries, either exit 
the program or supply another file name. When a valid file 
name is supplied, enter the effective date for the delivery 
order. 


Valid dates range from 840101 to 991231 (the system 
currently will not accept leap year dates - 29 February). 
The actual site number from the input delivery order appears 
following the entry of a valid date. The user may change 
the site number to any site number within the range 01 - 58 
or accept the site number displayed. Following the entry of 
a valid site number, accept all data entries before the load 


process begins. If the response is "N", all data entries 
are erased and the input process is repeated. If the 
REonse is "Y", indicate input file disposition: 1 - retain 
Or 2 - erase. 
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The update process commences following this response. 
The load process may take up to 10 minutes. This is 
primarily due to the building of serial number records for 
each individual component on the delivery order. BE 
PATIENT. During the load process, status messages appear to 
keep the user appraised of the transactions as they occur. 
When the load process finishes, indicate whether to load 
another delivery order. If the response is "У", the ООШ 
starts with a new Screen 16. If the response is "М", the 
system returns to the Delivery Order Load Menu (Screen 15). 
Select menu option 2 to return to the Process Selection Menu 
(Screen 14) to await the next selection. 


2.3.3.2 Perform maintenance on the Equipment File. 


Select menu option 2 (from the Process Selection 
Menu - Screen 14) to either modify or review records in the 
Equipment File. Following the selection of option 2, the 
Equipment Maintenance Selection Menu (Screen 17) appears. 


Screen 17: The Equipment Maintenance Selection Menu 
enables the user to review or modify selected entries in the 
Equipment File. Select one of three options: 1 - update 
price information; 2 - review equipment file entries; or 
3 - return to the Process Selection Menu (Screen 14). 


2.3.3.2.1 Modify an Equipment File Record. 


Select menu option 1 (from the Equipment Maintenance 
Selection Menu - Screen 17) to modify an Equipment File 
record. Following the selection of option 1, the Equipment 
Update Format screen (Screen 18) appears. 


Screen 18: Enter the site number to update, an integer 
from 0i to 58. 


Select one of three options: 1 - update a specific 
site's records; or 2 - start at the beginning of the 
Equipment File; or 3 - start at the end of the Equipment 
File viewing records until the desired record appears. 

Enter "00" to start viewing records at the beginning of the 
file. Enter "99" to start viewing records at the end of the 
file. Enter the site number to modify records for a 
Specific site. 
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Following entry of the specified site number, two 
options exist: 1 - select a specific six digit feature 
number or 2 - start with the first feature number by 
wering "00 " (two zeroes followed by four spaces). 
Status messages appear at the bottom of the screen when 
reaching the first and last records. This action only 
occurs if a specific site is selected (a site selection 
@emer than "00" or "99"). 


The only authorized changes in this screen are the 
three price fields. An introductory window, explaining how 
to terminate the modification of a record field, appears 
following the entry of a feature number.  Terminate the 
introductory information window by striking the RETURN or 
ENTER key. Changes to fields are possible one field at a 
time. If changes are made to any field, either accept or 
reject the changes. Choose either: 1 - access the next 
record; 2 - access the previous record; or 3 - exit the 
update process. On exiting, the system returns to the 
Equipment Maintenance Selection Menu (Screen 17). 


2.3.3.2.2 Review an Equipment File Record. 


Select menu option 2 (from the Equipment Maintenance 
Selection Menu - Screen 17) to review an Equipment File 
record. Following the entry of option 2, the Equipment 
Review Format screen (Screen 19) appears. 


Screen 19: Enter the site number to review, an integer 
imeem Ol to 58. 


Select one of three options: 1 - review a specific 
ЕЕЕ 5 records; or 2 - start at the begiwning of the 
Equipment File; or 3 - start at the end of the Equipment 
File viewing records until the desired record appears. 
Enter 00" to start viewing records at the beginning of the 
fore. Enter "99" to start viewing records at the end of the 
file. Enter the site number to review records for a 
Specific site. 


Following the entry of specified site number, two 
options exist: 1 - select a specific six digit feature 
number or 2 - start with the first feature number by 
entering "00 " (two zeroes followed by four spaces). 
Status messages appear at the bottom of the screen when 
reaching the first and last records. This action only 
Occurs if a specific site is selected (a site selection 
other than "00" or "99"). 
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No changes are allowed in this screen. Choose either: 
1 - access the next record; 2 - access the previous record; 
or 3 --exit the review process. On exiting, the system 
returns to the Equipment Maintenance Selection Menu 
(Screen 17). 


2.3.3.3 Perform Maintenance on the Equipment Description 
File. 


Select menu option 3 (from the Process Selection 
Menu - Screen 14) to either modify or review records in the 
Equipment Description File. Following the selection of 
option 3, the Equipment Description Maintenance Menu 
(Screen 20) appears. 


Screen 20: The Equipment Description Maintenance Menu 
enables the user to review or modify selected entries in the 
Equipment Description File. Select one of three options: 

1 - modify Equipment Description File entries; 2 - review 
Equipment Description File entries; or 3 - return to the 
Process Selection Menu (Screen 14). 


2.3.3.3.1 Modify an Equipment Description File Record. 


Select menu option 1 (from the Equipment Maintenance 
Selection Menu - Screen 17) to modify an Equipment 
Description File record. After the selection of option 1, 
the Description Update Format screen (Screen 21) appears. 


Sereen 21: Enter: el 00 " (two zeroes followed by 
four spaces) to start the update process at the top of the 
БІ ПӘ але gg " (two nines followed by four spaces) to 


start at the update process the end of the file; or 3 - a 
Six digit feature number. Valid feature numbers range from 
0001010560599 400145 


An introductory window, explaining how to terminate the 
modification of a record field, appears following the entry 
of a feature number.  Terminate the introductory information 
window by striking the RETURN or ENTER key. Changes to 
fields are possible one field at a time. 


All data entries in this screen may be modified. Once 
the Base Maintenance Price field is either modified or 
passed, the user may update the memo field. If the response 
is "Y", a window of instructions (Screen 22) appears.) Е 
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instructions describe how to make changes to the memo field. 
ШЕР “һе response is "N", processing continues. 


Accept or reject changes made to any field. Choose 
either: 1 - access the next record; 2 - access the previous 
record; or 3 - exit the update process. On exiting, the 
system returns to the Equipment Maintenance Selection Menu 
(Screen 17). 


2.3.3.3.2 Review an Equipment Description File Record. 


Select menu option 2 (from the Equipment Maintenance 
Selection Menu - Screen 17) to review an Equipment 
Description File record. After the selection of option 2, 
the Description Review Format screen (Screen 23) appears. 

Screen 23: Enter either: 1 - "00 ' (two zeroes 
followed by four spaces) to start the update process at the 
memeot the file; 2 - "99 " (two nines followed by four 
spaces) to start at the update process the end of the file; 
ог 3 - a six digit feature number. Valid feature numbers 
range from 000101 to 994001. 


No changes are allowed in this screen. Choose either: 
1 - access the next record; 2 - access the previous record; 
or 3 - exit the review process. On exiting, the system 
returns to the Equipment Maintenance Selection Menu 
(Screen 17). 


2.3.3.4 Perform Maintenance on the Site Name File. 


Select menu option 4 (from the Process Selection 
Menu - Screen 14) to either modify or review records in the 
Site Name File. Following the selection of option 4, the 
Site Name Maintenance Menu (Screen 24) appears. 


Screen 24: The Site Name Maintenance Menu enables the 
user to review or modify selected entries in the Site Name 


File. Select one of three options: 1 - modify Site Name 
File entries; 2 - review Site Name File entries; or 
Jj - return to the Process Selection Menu (Screen 14). 


81 


APPENDIX A: USER's MANUAL Page 29 


2.3.3.4.1 Modify a Site Name File Record. 


Select menu option 1 (from the Site Name Maintenance 
Menu - Screen 24) to modify a Site Name File record. After 
the selection of option 1, the Site Address Data Update 
Format screen (Screen 25) appears. 


Screen 25: Enter the site number to update, an integer 
from Ol to 39: 


Select one of three options: 1 - update a specific 
site's records; or 2 - start at the beginning of the Site 
Name File; or 3 - start at the end of the Site Name File 


viewing records until the desired record appears. Enter 
"00" to start viewing records at the beginning of the РИШ-И 
Enter "99" to start viewing records at the end of Ере и 
Enter the site number to modify records for a specific site. 


All data entries, except site number and type activity, 
may be changed. An introductory window, explaining how to 
terminate the modification of a record field, appears 
following the entry of a feature number.  Terminate the 
introductory information window by striking the RETURN or 
ENTER key. Changes to fields are possible one field at a 
time. Accept or reject changes made to any field. Choose 
either: 1 - access the next record; 2 - access the previous 
record; or 3 - exit the update process. On exiting, the 
system returns to the Site Name Maintenance Menu 
(Screen 24). 


2.3.3.4.2 Review a Site Name File Record. 


Select menu option 2 (from the Site Name Maintenance 
Menu - Screen 24) to review a Site Name File record. 
Following the selection of option 2, the Site Address Data 
Review Format screen (Screen 26) appears. 


Screen 26: Enter the site number to review, an integer 
trom, Ol, treo ssa 


Select one of three options: 1 - review a specific 
Site's records; or 2 - start at the beginning of the Site 
Name File; or 3 - start at the end of the Site Name File 
viewing records until the desired record appears. Enter 
"00" to start viewing records at the beginning of the ТІРЕ 
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Enter "99" to start viewing records at the end of the file. 
ее the Site number to review records for a specific site. 


No data entries may be changed in this screen. Choose 
either: 1 - access the next record; 2 - access the previous 
record; or 3 - exit the update process. On exiting, the 
system returns to the Site Name Maintenance Menu 
(Screen 24). 


2.3.3.5 Perform Maintenance on the Manual File. 


Select menu option 5 (from the Process Selection 
Menu - Screen 14) to either modify or review records in the 
Manual File. Following the selection of option 5, the 
Manual Maintenance Menu (Screen 27) appears. 


Screen 27: The Manual Maintenance Menu enables the 
user to either access, modify, add or delete selected 
entries in the Manual File. Select one of five options: 1 - 


add a new Manual Description entry; 2 - update Manual 
Description entries; 3 - delete a Manual Description entry; 
4 - review Manual Description entries; or 5 - return to the 


Process Selection Menu (Screen 14). 


2.3.3.5.1 Add a new Manual Description entry. 


Manual description entries may only oe added for the 
Site selected. The site number and feature number must be 
known to successfully execute this process. This 
restriction applies even if a manual description already 
exists for a site and feature number. Be sure you want to 
add a new manual and not just update an existing one! 
Delete an old manual if it is no longer applicable. 


Screen 28: Enter a valid site number, an integer from 
Eo 58.— The site number entered is validated to ensure 
meee records exist for the site number selected. 


Enter the feature number for the manual description to 

add. Valid feature numbers range from 000101 to 994001. 

The system validates the feature number to ensure that the 
feature number exists on the file. Once a valid feature 
number is entered, the CLIN and description data appear. 

The cursor moves to the Manual Description field where the 
new manual description is entered. Indicate whether the new 
description is acceptable. If the response is "N", either 
choose to continue or exit. If the response is "Y", the new 
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description entered is accepted. Choose either to continue 
or exit. On exiting, the system returns to the Manual 
Maintenance Menu (Screen 27). 


2.3.3.5.2 Update a Manual Description entry. 


Select menu option 2 (from the Manual Maintenance 
Menu - Screen 27) to modify a Manual File record. After 
selection of option 2, the Manual Update Format screen 
(Screen 29) appears. 


Screen 29: Enter a valid site number, an integer from 
Ol вой бей The site number entered is validated to ensure 
that records exist for the site selected. 


Select one of three options: 1 - update a specific 
Site's records; or 2 - start at the beginning of the Manual 
File; or 3 - start at the end of the Manual File viewing 
records until the desired record appears. Enter 00 ee 
start viewing records at the beginning of the file. Enter 
"99" to start viewing records at the end of the file Е 
the site number to modify records for a specific site. 


Following entry of the specified site number, two 
options exist: 1 - select a specific six digit feature 
number or 2 - start with the first feature number by 
entering a feature number of "00 ' (two zeroes followed 
by four spaces). Status messages appear at the bottom of 
the screen when reaching the first and last records. This 
action only occurs if a specific site is selected (a site 
selection other Ваш ‘Ооо оо 


The only field allowed to be modified during this 
process is the Manual Description field. An introductory 
window, explaining how to terminate the modification of a 
record field, appears following the entry of a feature 
number.  Terminate the introductory information window by 
striking the RETURN or ENTER key. 


Changes to fields are possible one field at a time. 
Accept or reject changes made to any field. Choose either: 
1 - access the next record; 2 - access the previous record; 
or 3 - exit the update process. On exiting, the system 
returns to the Manual Maintenance Menu (Screen 27). 
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2.3.3.5.3 Delete a Manual Description entry. 


Select menu option 3 (from the Manual Maintenance 
Menu - Screen 27) to delete a Manual Description entry. 
After the selection of option 3, the Manual Deletion Format 
screen (Screen 30) appears. 


Screen 30: Enter a valid site number, an integer from 
Mieco 58. The site number entered is validated to ensure 
that records exist for the site selected. 


Enter the feature number for the description to delete. 
Valid feature numbers range from 000101 to 994001. When the 
description appears, verify the deletion decision. If the 
response is "N", the Manual Description is left intact. If 
miemresponse is "Y", the Manual Description is deleted. 
Choose either to continue or exit. On exiting, the system 
returns to the Manual Maintenance Menu (Screen 27). 


2.3.3.5.4 Review a Manual Description entry. 


Select menu option 4 (from the Manual Maintenance 
Menu - Screen 27) to review a Manual Description entry. 
After the selection of option 4, the Manual Review Format 
screen (Screen 31) appears. 


Screen 31: Enter a site number, an integer from 01 to 
EN Ihe site number entered is validated to ensure that 
records exist for the site selected. 


Select one of three options: 1 - review a specific 
site's records; or 2 - start at the beginning of the Manual 
File; or 3 - start at the end of the Manual File viewing 
EN ds until the desired record appears. Enter "00" to 
start viewing records at the beginning of the file. Enter 
ЕАО start viewing records at the end of the file. Enter 
the site number to review records for a specific site. 


No data entries may be changed in this screen. Choose 
either: | - access the next record; 2 - access the previous 
record; or 3 - exit the update process. On exiting, the 


System returns to the Site Name Maintenance Menu 
(Screen 24). 


85 


APPENDIX A:  USER's MANUAL Page 33 


2.3.3.6 Perform Maintenance on the Serial Number File. 


Select menu option 6 (from the Process Selection 
Menu - Screen 14) to either modify or review records in the 
Serial Number File. Following the selection of option 6, 
the Serial Number Maintenance Menu (Screen 32) appears. 


Three data elements must be known to perform an update 
on a Serial Number File record. The three data elements 
are: | - site number, 2 - effective delivery order date and 
3 - feature number of the serial number to be modified. If 
all three or any of these data elements are not known, run a 
date level report to obtain the three elements (refer to the 
section Generate REPORTS for the Project, a Site or 
Equipment for specific procedures). 


засе Modify a Serial Number File record. 


Select menu option 1 (from the Serial Number 
Maintenance Selection Menu - Screen 32) to modify a Serial 
Number File record. After the selection of option 1, the 
Serial Number Update Format screen (Screen 33) appears. 


Screen 33: Enter a valid site number, an integer from 
01 to 58. The site number entered is validated to ensure 
that records exist for the site selected. 


Following the site number entry, enter an effective 
delivery order date. Three attempts are allowed to specify 
an effective delivery order date. Screen 34 appears if on 
the third attempt a valid effective delivery order date is 
not entered. Select one of two choices: 1 - continue with 
the update process or 2 - exit the update process and obtain 
the three elements (refer to the section Generate REPORTS 
for the Project, a Site or Equipment for specific 
procedures). 


Once a delivery order date is entered, enter a valid 
feature number. Valid feature numbers range from 000101 to 
994001. Screen 34 appears if all three data elements do not 
match any record data fields for the site selected. The 
Same two choices described in the paragraph above may be 
chosen. When a valid feature number is entered and all 
three data elements match, a short introductory window 
explaining how to terminate the modification of a record 
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field appears.  Terminate the introductory information 
window by striking the RETURN or ENTER key. 


Following termination of the introductory information 
screen, the Serial Number File record selected appears. The 
only field that may be modified is the serial number field. 
Accept or reject changes made to the serial number field. 


If the response is "Y", the change is made to the database. 
ШЕ Пе response is "N", the change is not accepted. Choose 
either: 1 - access the next record; 2 - access the previous 
record; or 3 - exit the update process. On exiting, the 


system returns to the Serial Number Maintenance Menu 
(Screen 32). 


2.3.3.6.2 Review a Serial Number File record. 


Select menu option 2 (from the Serial Number 
Maintenance Selection Menu - Screen 32) to review a Serial 
Number File record. After the selection of option 2, the 
Serial Number Update Format screen (Screen 35) appears. 


Screen 35: Enter a valid site number, an integer from 
EM o 58. The site number entered is validated to ensure 
[meee records exist for the site selected. 


Select one of three options: 1 - review a specific 
wees) records; ог 2 - start at the beginning of the Serial 
Number File; or 3 - start at the end of the Serial Number 


File viewing records until the desired record appears. 

bar: 00” to start viewing records at the beginning of the 
meme. Enter "99" to start viewing records at the end of the 
file. Enter the site number to review records for a 
specific site. 


Following entry of the specified site number, two 
options exist: 1 - select a specific six digit feature 
number or 2 - start with the first feature number by 
entering '00 " (two zeroes followed by four spaces). 
Valid feature numbers range from 000101 to 994001. Status 
messages appear at the bottom of the screen when reaching 
the first and last records. This action only occurs if a 
specific EE -wi-e-elected (а site selection other than "00" 
ЕЕ 99”), 


No data fields are allowed to be modified during the 


review process. Choose either: | - access the next record; 
2 - access the previous record; or 3 - exit the review 
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process. On exiting, the system returns to the Serial 
Number Maintenance Menu (Screen 32). 


2.3.3.7 Generate REPORTS for the Project, a Specific Site 


or a Particular Date. 


Select menu option 7 (from the Process Selection 


Menu - Screen 14) to obtain an overall project report, a 
report for a particular site or a report for a delivery 
order issued on a particular site. Following the selection 


of option 7, the Report by Type Menu (Screen 36) appears. 


Screen 36: Various levels of reports which may be 
selected appear. Select one of three options: 1 - obtain a 
project level report; 2 - obtain a site specific report; 

3 - obtain a delivery order specific report; or 4 - return 
to the Process Selection Menu (Screen 14). 


Screen 37: When obtaining any of the various types of 
reports, two options exist: 1 - obtain a printed report or 
2 - view the data on screen. Screen 37 always appears if a 
printed report is selected. Ensure: 1 - the power to the 
printer is on; 2 - sufficient paper is loaded in the printer 
and 3 - the leading edge of the paper is positioned with the 
printer's typing line alignment mark. After all three 
conditions are satisfied, commence printing by the striking 
the RETURN or ENTER key. Once printing commences, the 
appropriate screen appears and status messages detailing the 
progress of the report are displayed. 


2.3.3.7.1 Obtain an Overall Project Level Report. 


Select menu option 7 (from the Process Selection Menu - 
Screen 14) to obtain an overall project level report for a 
Site. The Report by Type Menu (Screen 36) appears. From 
the Report by Type Menu, select option 1. After the 
selection of option 1, the Project Level Reports Menu 
(Screen 38) appears. 


Screen 38: Select one of three options: 1 - obtain a 
report by equipment type; 2 - obtain a report by serial 
numbers; or 3 - return to the Report by Type Menu 


{Screen 36). 
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2.3.3.7.1.1 Obtain an Overall Project Report by 
Equipment Type. 


Select menu option 1 (from the Project Level Reports 
Menu - Screen 38) to obtain an overall project report broken 
down by type of equipment. After the selection of option 1, 
the Equipment Project Level Report screen (Screen 39) 
appears. 


Screen 39: Indicate whether a printed report is 
desired. Responses are either "Y" or "N". If the response 
is "Y", Screen 37 appears before printing commences (See the 
discussion of Screen 37 above). If the response is "N", the 
data and associated headings appear. Screen 40 is a sample 
report format. 


Screen 40: All equipment is totaled by feature number 
and presented. The quantity for each feature number 
displayed represents the total quantity ordered for all 
Sites in the Equipment database. After each screen, choose 
either: 1 - continue the report or 2 - exit the report 
process. On exiting, the system returns to the Project 
Level Reports Menu (Screen 38). 


2.3.3.7.1.2 Obtain an Overall Project Report by Serial 
Number. 


Select menu option 2 (from the Project Level Reports 
Menu - Screen 38) to obtain an overall project report broken 
down by serial number. After the selection of option 2, the 
Equipment Serial Number Project Level Report screen 
(Screen 41) appears. 


Screen 41: Indicate whether a printed report is 
desired. Responses are either "У" ог "М". If the response 
is "y", Screen 37 appears before printing commences (See the 
discussion of Screen 37 above). If the response is "N", the 
data and associated headings appear. Screen 42 is a sample 
report format. 


Screen 42: All serial numbers for each component at 
all sites are presented. This will probably be a LARGE 
report! Entries include: Site Number, CLIN, Feature Number, 
Description, Effective Delivery Order Date, total component 
quantity on the delivery order, specific component number 
(e.g. 1 of 9), and the applicable serial number. After each 
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screen, choose either: 1 - continue the report or 2 - exit 
the report process. On exiting, the system returns to the 
Project Level Reports Menu (Screen 38). 


2.3.3.7.2 Obtain a Report for a Particular Site. 


Select menu option 7 (from the Process Selection 
Menu - Screen 14) to obtain a report for a particular site 
The Report by Type Menu (Screen 36) appears. Select menu 
option 2 from the Report by Type Menu. After the selection 
of option 2, the Site Level Reports Menu (Screen 43) 
appears. 


Screen 43: Select one of four options: 1 - obtain a 
report by equipment type; 2 - obtain a report of site 
manuals; 3 - obtain a report by serial number; or 4 - return 


to the Site Level Reports Menu (Screen 43). 


2.3.3.7.2.1 Obtain a Site Specific Report by Equipment 
Type 5 


Select menu option 1 (from the Site Level Reports 
Menu - Screen 43) to obtain a site specific report broken 
down by equipment type. After the selection of option 1, 
the Equipment Site Level Report screen (Screen 44) appears. 


Screen 44: Enter the site number, an integer from 01 
to 58. The site number entered is validated to ensure that 
records exist for the site selected. 


screen 45: Indicate whether a printed report is 
desired. Responses are either "Y" or "N". If the response 


is "Y", Screen 37 appears before printing commences (See the 
discussion of Screen 37 above). If the response is N ВЕ 
data and associated headings appear. Screen 46 is a sample 


report format. 


Screen 46: All records for a specific site are 
selected from the Equipment database and their quantities 
are totaled. The Site Number, CLIN, Feature Number, 
Equipment Description, and total site quantity are 
presented. After each screen, choose either: 1 - continue 
the report or 2 - exit the report process. On exiting, the 
system returns to the Site Level Reports Menu (Screen 42). 
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2.3.3.7.2.2 Obtain a Site Specific Report of Manuals. 


Select menu option 2 (from the Site Level Reports 
Menu - Screen 43) to obtain a site specific manual report. 
After the selection of option 2, the Site Level Manual 
Report screen (Screen 47) appears. 


Screen 47: Enter the site number, an integer from 01 
to 58. The site number entered is validated to ensure that 
records exist for the site selected. 


Screen 48: Indicate whether a printed report is 
ШЫ еа. Responses are either "Y" ог "М". If the response 
is "Y", Screen 37 appears before printing commences (See the 
discussion of Screen 37 above). If the response is "N", the 
data and associated headings appear. Screen 49 is a sample 
report format. 


Screen 49: The Manual File is accessed and each 
feature number within the selected site appears. Report 
items include Site Number, CLIN, Feature Number, 
Description, and Manual Description. After each screen, 
choose either: 1 - continue the report or 2 - exit the 
report process. On exiting, the system returns to the Site 
Level Reports Menu (Screen 42). 


2.3.3.7.2.3 Obtain a Site Specific Report by Serial 


Number. 


select menu option 3 (from the Site Level Reports 
Menu - Screen 43) to obtain a site specific report of serial 
numbers. After the selection of option 3, the Site Serial 
Number Report screen (Screen 50) appears. 


screen 50: Enter the site number, an integer from 01 
ENS. The site number entered is validated to ensure that 
records exist for the site selected. 


Screen 51: Indicate whether a printed report is 
desired. Responses are either "Y" or "М". If the response 
is "Y", Screen 37 appears before printing commences (See the 
ENScussion of Screen 37 above). If the response is "N", the 
data and associated headings appear. Screen 52 is a sample 
ШО ОГ format. 


on 
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Screen 52: All serial numbers for each component at a 
Site appear. Entries include: Site Number, CLIN, Feature 
Number, Description, Effective Delivery Order Date, total 
component quantity on the delivery order, specific component 
number (e.g. 1 of 9), and the applicable serial number. 
After each screen, choose either: 1 - continue the report or 
2 - exit the report process. On exiting, the system returns 
to the Site Level Reports Menu (Screen 42). 


2.3.3.7.3 Obtain a Report for a Delivery Order Issued on a 
Particular Date. 


Select menu option 7 (from the Process Selection 
Menu - Screen 14) to obtain a report for a delivery order 
issued on a particular date. The Report by Type Menu 
(Screen 36) appears. From the Report by Type Menu, select 
option 3. After the selection of option 3, the Delivery 
Order Date Level Reports Menu (Screen 53) appears. 


Screen 53: Select one of four options: | - obtain an 
equipment report with unit costs; 2 - obtain an equipment 
report without costs; 3 - obtain a report by serial number; 
or 4 - return to the Delivery Order Date Level Reports Menu 
(Screen 53). 


2.3.3.7.3.1 Obtain a Report by Equipment Type with Unit 
Prices. 


Select menu option 1 (from the Delivery Order Date 
Level Reports Menu - Screen 53) to obtain a date level 
report broken down by equipment type with unit prices. 
After the selection of option 1, the Delivery Order Level 
Report screen (Screen 54) appears. 


Screen 54: Enter the site number, an integer from 01 
to 58. The site number entered is validated to ensure that 
records exist for the site сес Ее 


Screen 55: All delivery orders existing in the 
Equipment database appear. After the last delivery order 
effective date appears, choose either: 1 - continue the 
report or 2 - exit the report process. On exiting, tne 
System returns to the Delivery Order Date Level Reports Menu 
(Screen 53). 


Screen 56: Indicate whether a printed report is 
desired. Responses are either "Y" or "N". If the response 
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is "Y", Screen 37 appears before printing commences (See the 
discussion of Screen 37 above). If the response is "N", the 
data and associated headings appear. Screen 57 is a sample 
peport-format. 


Screen 57: Items appearing on the report are Delivery 
Order Date, Site Number, CLIN, Feature Number, Description, 
Delivery Order Quantity, and Component Unit Purchase Price. 
After each screen, choose either: 1 - continue the report or 
2 - exit the report process. On exiting, the system returns 
to the Delivery Order Date Level Reports Menu (Screen 53). 


2.3.3.7.3.2 Obtain a Report by Equipment Type without Unit 


Prices. 


Select menu option 2 (from the Delivery Order Date 
Level Reports Menu - Screen 53) to obtain a date level 
report broken down by equipment type without unit prices. 
After the selection of option 2, the Delivery Order Level 
Report screen (Screen 58) appears. 


Screen 58: Enter the site number, an integer from 01 
momoo. The site number entered is validated to ensure that 
BNecords exist for the site selected. 


Screen 59: All delivery orders existing in the 
Equipment database appear. After the last delivery order 
effective date appears, choose either: 1 - continue the 
report or 2 - exit the report process. On exiting, the 
System returns to the Delivery Order Date Level Reports Menu 
(Screen 53). 


screen 60: Indicate whether a printed report is 
desired. Responses are either "Y" or "N". If the response 
is "Y", Screen 37 appears before printing commences (See the 
discussion of Screen 37 above). If the response is "N", the 
data and associated headings appear. Screen 61 is a sample 
i Ort format. 


Screen 61: Items appearing on the report are Delivery 
Order Date, Site Number, CLIN, Feature Number, Description, 
Delivery Order Quantity, and FDC Model Number. After each 
screen, choose either: 1 - continue the report or 2 - exit 
the report process. On exiting, the system returns to the 
Delivery Order Date Level Reports Menu (Screen 53). 
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2.3.3.7.3.3 Obtain a Date Level Report by Serial Number. 


Select menu option 3 (from the Delivery Order Date 
Level Reports Menu - (Screen 53) to obtain a date level 
report broken down by serial number. After the selection of 
option 3, the Site Serial Number Report screen (Screen 62) 
appears. 


Screen 62: Enter the site number, an integer from 01 
to 58. The site number entered is validated to ensure that 
records exist for the site selected. 


Screen 63: All delivery orders existing in the 
Equipment database appear. After the last delivery order 
effective date appears, choose either: 1 - continue the 
report or 2 - exit the report process. On exiting, the 
system returns to the Delivery Order Date Level Reports Menu 
(5сгееп 53). 


Screen 64: Indicate whether a printed report is 
desired. Responses are either "Y" or "М". If the respemee 
is "У", Screen 37 appears before printing commences (See) tie 
discussion of Screen 37 above). If the response is "М", the 
data and associated headings appear. Screen 65 is a sample 
report format. 


Screen 65: Items appearing on the report are Delivery 
Order Date, Site Number, CLIN, Feature Number, Description, 
Delivery Order Effective Date, Total Quantity by Component 
ordered on the delivery order, specific component quantity 
(e.g. 1 of 9), and Item Serial Number. After each screen, 
choose either: 1 - continue the report or 2 - exit the 
report process. On exiting, the system returns to the 
Delivery Order Date Level Reports Menu (Screen 53). 


2.3.3.8 Generate a Maintenance Delivery Order for a SPLICE 
Site. 


Select menu option 8 (from the Process Selection 
Menu - Screen 14) to generate a maintenance delivery order 
for a SPLICE site. Following the selection of option 8, the 
Maintenance Delivery Order Generation Program screen 
(Screen 66) appears. 


Screen 66: Enter the following data: 1 - Site Number; 
2 - LCN Hardware Maintenance Escalation Rate; 3 - LCN 
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Software Escalation Maintenance Rate; 4 - SPLICENet 


Maintenance Discount Rate; and 5 - Site Maintenance 
Escalation Rate. After these data elements are entered, 
choose-either: 1 - continue ог 2 - exit the process. If the 
response is "Y", the maintenance delivery order generation 


process is initiated and takes approximately 10 minutes to 

complete. The output file generated is always 'NEWDO.PRN". 
On completion of the generation process, the system returns 
to the Process Selection Menu (Screen 14) to await the next 
selection. 


On returning to the Process Selection Menu, select menu 
Soeton 0 to return to the Function Selection Menu 
(Screen 1). From the Function Selection Menu, select menu 
option 2. After selecting option 2, the system transfers to 
the LOTUS 1-2-3 environment. Refer to section 2.3.2 on page 
19 to obtain the specific details for step-by-step 
procedures. Since this 1s a maintenance delivery order 
rather than an initial delivery order, follow the procedures 
which address MAINTDO worksheet execution versus SKELETON 
worksheet execution. 


2.3.3.9 Generate Mailing Labels for all SPLICE Sites. 


Select menu option 9 (from the Process Selection 
Menu - Screen 14) to generate mailing labels for all SPLICE 
Sites. Following the selection of option 9, the Mailing 
Label Generation Program screen (Screen 67) appears. 


Screen 67: The mailing label generation program simply 
produces mailing labels for all the SPLICE sites. Delivery 
order changes, contract amendments, or other SPLICE related 
correspondence may be mailed to all SPLICE sites without 
having to manually create labels. The only input required 
for the process is the number of copies of mailing labels 
desired during the run. Valid input values are from 1 to 10 
copies of mailing labels. When processing is complete, 
control returns to the Process Selection Menu (Screen 14) to 
await the next selection. 


This completes the discussion of the process functions 
 ЕЕПе SPLICE Configurer and dBASE III Configuration 
Management System. Exit the integrated system by either of 
two options: 1 - select Function Selection Menu option 5 to 
return to the dBASE III system prompt or 2 - select Function 
selection Menu option 6 to return to the DOS operating 
System prompt. 
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2.3.4 FUNCTION 4: View the on-line User's Manual 


Select Function Selection Menu option 4 to view the 
on-line User's Manual. The system temporarily transfers 
control to Wordstar where a copy of the file "USERS.MAN" is 


viewed. Any changes made to this file during the viewing 
process are not retained. The file copy is destroyed on 
termination from Wordstar.  Terminate User's Manual viewing 


rE 


by typing either KD' or "^KQ" (see note below). "PY D 
command returns the system to the Wordstar opening menu. 
Typing the letter "X" returns the system to the 
Configuration Management System. 


NOTE: The commands "KD" and "^КО" аге ехесп m 
simultaneously holding down the "CTRL" key (represents ma 
Ене character ) оп гпе ТӨРЕ ado EN кеубоага апа курс 
the letter "K" followed by either letters mD iiS FEEC 


3.0 System Output. 


The output from the SPLICE Pascal configurer is a 
formatted disk file. The file is input data for 
LOTUS 1-2-3, which has 3 outputs: 1 - an archival LOTUS 
".WKS" disk file; 2 - a dBASE ".PRN" input disk file; and 
3 - a delivery order. 


The dBASE process has numerous outputs. Refer to 
Section 2 (Screens 36 through 66) for further information 


4.0 Exception Reports. 


This integrated system is interactive, therefore, no 
hard copy exception reports are produced.  Erroneously 
entered data is presented to the user for immediate action 
OLMCOPFPOCETOD. 


5.0 Limitations. 


The SPLICE System Configurer was designed on an IBM-PC, 
but is intended to be run on an IBM-PC AT. The designers 
recommend that the target IBM-PC AT have the maximum user 
memory allowed (640KB). To run the dBASE Configuration 
Management System, a hard disk is mandatory. The system 
requires a 132 column printer to print delivery orders 
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generated from both LOTUS 1-2-3 and dBASE processes and 
mailing labels. 


If a system other than an IBM-PC/AT is used, the system 
will respond slowly. Further performance degradation will 
Eur while importing the ".PRN" file into LOTUS. 
Performance degradation will also occur during the Serial 
Number building process in the file load and in the 
maintenance delivery order generation process. 


256КВ of memory is required if dBASE III version 1.0 is 
used.  384KB RAM is required if dBASE version 1.1 is used. 


The SPLICE Pascal Configurer system is limited by the 
number of components it can configure (200) and the number 
of sites it can configure (58). 


The LOTUS 1-2-3 and dBASE III modules exhibit only 
those limitations which exist for those "off-the-shelf" 
packages. 


6.0 Command Sequence. 


Issue the command SPLICE (ex: C>SPLICE) from the DOS 
command prompt to invoke the SPLICE integrated configuration 
system (Pascal Configurer and dBASE Configuration Management 
System). This directs DOS to process a command batch file 
named SPLICE. The command batch file issues all required 
commands and causes the integrated system to load the memory 
resident module FLASHUP and commence integrated system 
execution (See Section 2 for more detailed entries). 


NOTE: Prior to issuing the command SPLICE, deactivate any 
resident color enhancement programs (ex: KOLOR.COM). Such 
programs interfere with the screen colors generated by the 
System and data entry color attributes. 


7.0 Who to Call. 


Ef program malfunctions occur or questions related to 
the system arise, contact LCDR E. J. Case, SC, USN, phone 
number (408) 384-8204 or LCDR R. L. Beard III, SC, USN, 
phone number (408) 646-1982. 
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SELECTION CRITERIA FOR A SPLICE CONFIGURATION 
SITE NAME: 


STTE NUMBER 


DISCOUNT/ESCALATION RATES: 

FDC SNA Interface discount rate: 

NON-LCN PURCHASE discount rate: 

LCN PURCHASE. discount Tate: 

SPLICENet Software Maintenance discount rate: 
SPLICENet Software Purchase discount rate: 
EMERGENCY MAINTENANCE  escalation rate: 
LCN HARDWARE MAINTENANCE escalation rate: 
LCN SOFTWARE MAINTENANCE escalation rate: 
INSTALLATION  escalation rate: 

TRAINING  escalation rate: 

DOCUMENTATION escalation rate: 


MAINTENANCE escalation rate from SPLICE contract: 
Output File Name: . PRN 
Number of MAINTENANCE MONTHS for this order: 


Effective Delivery Order Date: / й 
(MM / DD / YY) 
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HARDWARE SELECTIONS: 


PROCESSORS recommended by FMSO Sizing Study: 
CENTRONICS PRINTERS to be ordered: 

TANDEM CRTS to be ordered: 

128MB DISCs FMSO Sizing Study recommended, EVEN No.: 
240MB DISCs FMSO Sizing Study recommended, EVEN No.: 
540MB DISCs FMSO Sizing Study recommended, EVEN No.: 
Non-6100 ASYNC Controllers to be installed: 


Non-6100 ASYNC EXTENSION BOARDS to be 
installed per controller (0/1/2): 


me sYNC LINES to be supported: 
BYTE SYNC LINES to be supported: 
TRI-DENSITY TAPE DRIVES to be installed: 
(Ensure fixed disk archival 
back-up drives are included) 
READER/PUNCHES to be installed: 
CARD READERS to be installed: 
1000 LPM PRINTERS to be installed: 
600 LPM PRINTERS to be installed: 
LCN TRUNKS required for the network: 
ШІ) LINE INTERFACE UNITS: 
PERKIN-ELMER Local Computer Network interfaces: 
Burroughs B4800 Local Computer Network interfaces: 
Burroughs B4900 Local Computer Network interfaces: 


IBM System Local Computer Network interfaces: 
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UNIVAC System Local Computer Network interfaces: 


FIPS Standard Local Computer Network interfaces: 
TANDEM HYPERchannels to be installed: 


PATCH PANEL CABINETS: 
(additional for reserve and expansion) 


SYSTEM CABINETS: 
(additional for reserve and expansion) 


EXPANSION CABINET(S): 
(additional for reserve and expansion) 


HYPERchannel Adapter Cabinet(s) required: 
Estimate the distance between the two most distant 


Computers on the Local Computer Network, Range - 
(1 to 5000 feet): 
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SOFTWARE SELECTIONS: 


File Security System Software (Yes/No)? 

LCN File Utility Package Software (Yes/No)? 
ATP 6100 Software (Yes/No)? 

BSC 6100 Software (Yes/No)? 

ADCCP 6100 Software (Yes/No)? 

BURROUGHS POLL/SELECT 6100 Software (Yes/No)? 
SNAX and SNAX/HLS 6100 Software (Yes/No)? 
TINET 6100 Software (Yes/No)? 

E3271 Software (Yes/No)? 

AM 6520 Software (Yes/No)? 

T-TEXT Software (Yes/No)? 

FDC SNA Interface Software (Yes/No)? 

FDC DLANet Interface Software (Yes/No)? 


EERNSInterface Software (Yes/No)? 


NETWORK MAINTENANCE FACILITY (NMF): 

NMF Group Package Software (Yes/No)? 

NMF Base Facility Software (Yes/No)? 

NMF Performance Monitoring Software (Yes/No)? 
NMF Diagnostic Monitoring Software (Yes/No)? 
NMF Accounting Application Software (Yes/No)? 
NETEX MAINTENANCE MONTHS for this order: 


SPLICENet MAINTENANCE MONTHS for this order: 
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DOCUMENTATION SELECTIONS: 


COMPUTER OPERATIONS MANUAL sets required: 
SYSTEMS PROGRAMMER MANUAL sets required: 
HARDWARE MANUAL sets required: 


PROGRAMMER REFERENCE MANUAL sets required: 
TRAINING SELECTIONS: 
Select Training Group to be ordered 

(Group I-IV / None): 
OPERATOR TRAINING COURSES required: 
HARDWARE OVERVIEW COURSES required: 
SYSTEMS RESOURCE MANAGEMENT COURSES required: 
SYSTEMS TUNING AND XRAY COURSES required 
DATA COMMUNICATIONS COURSES required: 
TAL COURSES required: 


SPLICENet Migration Workshop COURSES required: 


MAINTENANCE AND SITE PREP SELECTIONS: 
EMERGENCY PER-CALL MAINTENANCE months required: 


Should we include SITE PREPS in this run’ (ves) E 
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FUNCTION SELECTION MENU 






Stock Point Logistics Integrated Communications Environment 







ЗРЕШВЕ 


ШУ - n F RT 


1 - Configure a site using the SPLICE Configurer 

2 - Perform financial analysis of a site using LOTUS 1-2-3 
3 Е Interact with the Configuration Management System 

4 = Review the USER's MANUAL 

5 - Return to the dBASE prompt 

6 - Return to the DOS Operating System prompt 


Please enter your choice: m 


SCREEN 1 


NAVAL SUPPLY SYSTEMS COMMAND 


STOCK POINT LOGISTICS INTEGRATED COMMUNICATIONS ENVIRONMENT 
РОС eae 


SYSTEM COMFIGURER d 
Version 1.2 
December 1985 


SCREEN 2 


f 
А 
ин 
B fest 4 
H 

г 
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а аас LISTING Or SPELERS TIES = _ 
01 ASO PHILADELPHIA 02 FMSO MECHANICSBURG 03 FMS0 MECHANICSBURG 
04 MCAS CHERRY POINT 05” МСАЗ ЕС ГОБИ 06 MCAF QUANTICO 
07 MCAS YUMA 08 NAC INDIANAPOLIS 09 NARDAC JACKSONVILLE 
10 NARDAC NEW ORLEANS 11 NARDAC NORFOLK 12 NARDAC PENSACOLA 






















13 NARDAC SAN DIEGO 14 NARDAC SAN FRANSISCO 15 NARDAC WASHINGTON 
16 NAS BARBERS POINT 17 NAS BRUNSWICK 18 NAS CECIL FIELD 

19 NAS KEY WEST 20 NAEC LAKE HURST 2l NAS HEMP is 

22 NAS MIRAMAR 23 NAS OCEANA (INACTIVE) 24 NAS PENSACOLA 

25 NAS WHIDBEY ISLAND 26 NATC PATUXENT RIVER 2/ РИТС POINT HUGH 

28 NAVDAF CORPUS CHRISTI 29 NAVDAF GREAT LAKES 30 NAVDAF LEMOORE 

31 NAVDAF MOFFETT FIELD 32 NAVDAF ORLANDO 33 NRCC LONG BEACH 

34 NRCC NEWPORT 35 NREC PHILADERO RIA 36 NRCC WASHINGTON 

37 NUWES KEYPORT 38 NAVSTA MAYPORT 39. NSC CHARLESTON 

40 NSC NORFOLK 41 NSC QAKLAND 42 NSC PEARL HARBOR 
43 NSC PUGET SOUND 44 NSC SAN DIEGO 45 NSD GUAM 

46 NSD SUBIC BAY 47 NSD YOKOSUKA 48 NSY PHILADELPHIA 
49 NSY PORTSMOUTH 50 NTC SAN DIEGO 51 SPCC MECHANICSBURG 
52 SUBASE KINGS BAY 53 SUBASE NEW LONDON 54 SUBASE PEARL HARBOR 
55 SWFPAC BREMERTON 56 TRF BANGOR 57 SWFLANT KINGS BAY 
29 IRF KINGS BAY 59 TO BE DETERMINED 60 TO BE DETERMINED 






TO BE DETERMINED 62 TO ВЕ DETERMINED 





Please select the site you desine to cont io a 


SCREEN 3 


| OUTPUT MEDIA and DISCOUNT/ESCALATION RATES | 
———————————25 DISCOUNT & ESCALATION RATES ——=== N 


ШШ input are added to one (1) to generate | 










the correct discount or escalation rate 
FDC SNA Interface Discount Rate: 
Non-LCN Purchase Discount Rate: 
LCN Purchase Discount Rate: 
SPLICENet Software Maintenance Discount Rate: 
SPLICENet Software Purchase Discount Rate: 
Energency Maintenance Escalation Rate: 
LCN Hardware Maintenance Escalation Rate: 
LCN Software Maintenance Escalation Rate: 
Installation Escalation Rate: 
Training Escalation Rate: 
Documentation Escalation Rate: 
Maintenance Escalation Rate: 
OUTPUT "РЕМ" FILE NAME === 
SPLICE ouput and LOTUS 1-2-3 input filename: Ronee PRN | 


=== MAINTENANCE MONTHS === Delivery Order Effective Date == 
| Hardware Maintenance Months: mam | Effective Date но / ии / ши | 


SCREEN 4 
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к SYSTEM COMPONENTS ===] HARDWARE Г P(O [HIERr C EP DA IERS —— 


Processors 

Centronics Printers 

Tandem CRTs 

128 MB Disks 

240 MB Disks 

540 MB Disks 

Non-6100 ASYNC Controllers 
Non-6100 ASYNC Extension Boards 
Bit SYNC Lines 

Byte SYNC Lines 

Tri-Density Tape Drives 
Reader/Punches 

Card Readers 

1000 LPM Printers 

600 LPM Printers 

men Coaxial Cables (Trunks} 
6100 Line Interface Units (LIUs) 














SCREEN 5 


E s E ОИ ОЕ —-— 1 НАКОМАКЕ = LCN INTERFACE ADAPTERS ———1i 


Processors 

Centronics Printers 

Tandem CRTs 

128 MB Disks 

240 MB Disks 

540 MB Disks 

Non-6100 ASYNC Controllers 
Non-6100 ASYNC Extension Boards 
Bit SYNC Lines 

Byte SYNC Lines 

Tri-Density Tape Drives 
Reader/Punches 

Card Readers 

1000 LPM Printers 

600 LPM Printers 

LCN Coaxial Cables (Trunks) 
6100 Line Interface Units (LIUs) 
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PERKIN-ELMER 
BURROUGHS 4800 
BURROUGHS 4900 

IBM Systein 

UNIVAC System 

FIPS Standard 
Tandem HYPERchannel 


CABINETS Мет d 




















MAX DISTANCE BETWEEN COMPUTERS 





















(A) 1 - 500 FT | 
(B) 501 - 1000 FT 

(C) 1001 - 1500 FT ú 
(D) 1501 - 2500 FT 

(E) 2501 - 4000 FT 

(F) 4001 - 5000 FT 













PERKIN-ELMER 
BURROUGHS 4800 
BURROUGHS 4900 

IBM System 

UNIVAC System 

FIPS Standard 
Tandem HYPERchannel 





CABINETS —— 
COMP || XTRA 
Patch Panel па ша 
System эн gm 
Expansion mu nm 
MAX DISTANCE BETWEEN COMPUTERS 


A) 1 - 500 FT 
B) 501 - 1000 FT 
C) 1001 - 1500 FT 
D) 


( 
| 
| IE 2500 ET 
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SOFTWARE RELATED INPUTS 


«««««««««««««««««««««««««&«« SOFTWARE PACKAGES »»»»»>»>>>»>>>>>>>>Э>э>э»>>>ээ>»» 


File Security i FDC SNA Interface 3 
LCN File Utility Package 3 FDC DLANET Interface " 
6100 Packages DDN Interface a 

ATP ы 

BSC я NMF Group я 

ДОСЬЕ л 

Burroughs Poll Select u NMF Packages 

SNAX and SNAX/HLS 4 Base Facility 5 

TINET в Performance Monitoring 3 
ТЕ. 2271 E Diagnostic Monitoring a 
AM 6520 " Accounting Application 3 
T-Text a 


««««««««««««««««««&«&«. MONTHS of SOFTWARE MAINTENANCE »»»»»»»2»»»»»»»»»5»»»»»» 





NETEX Maintenance Months uu 
SPLICENet Maintenance Months nu 
SCREEN 7 


DOCUMENTATION, TRAINING & MAINTENANCE РАЦ я 
DOCUMENTATION MANUALS TRAINING GROUPS 



























(1) Group I (5) None 

(2) Group II -- 
Conputer Operations un (3) Group III Е | 

(4) Group IV A 
Programmer Reference uu 

TRAINING COURSES 

Hardware uu 

Operator Training па 
Systems Programmer Hardware Overview uu 

Systems Resource Management ча 

Systems Tuning and XRAY ап 

Data Commun ications su 


TANDEM Application Language au 
SPLICENet Migration Workshop ва 





EMERGENCY MAINTENANCE & SITE PREPARATIONS 





Months of EMERGENCY PER-CALL wm | Include Charges? (Yes "От МУ иди 


— 
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Al: 


«OD CO ы СУ сл +> Wh rm 


DR RRR RR RR ke xc 
Хо monn Nn ьо гм Ее ХО 
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2759 


Copyright (C) 1982,1983 
Lotus Development Corporation 
All Rights Reserved 
Release ТА 
* 


(Press Any Key To Continue) 


SCREEN 9 


READY 


SCREEN 10 


КО 
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Al: MENU 
Enter name of file to retrieve: 
SKELETON MAINTORO 

A B Ё D E F G 


OO NDGA г rm 


SCREEN 11 


Al: READY 


Oo OOo — CO» O1! +. Ww Pr 


ГО как e e e =— н — ee 
о оо моол 5 CJ n2 о 
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Al: | READY 

A B C D E 
1 
2 
3 
4 Site: 44 NSC SAN DIEGO, CA 
5 
6 
7 Нагдиаге 
8 
9 
10 
11 Contract Feature 
12 Line No. Numbers Description Qty Unit Price 
13 
14 440101 010201 NS-TXP, 2 MEG 8 86760.00 
15 440102 010301 2 MEG MEMORY 8 19800.00 
16 440104 013001 OSP WITH 6530 1 13387.50 
17 440105 013101 CENTRONIX PRINTER 2 1515550 
18 440106 013201 6530 CRT 17 2517550 
19 440107 013202 PRINTER INTERFACE | 409.50 
20 440108 015001 PATCH PANEL CABINET 2 2250200 

SCREEN 13 


oe S LE (TID U I — t. J 
Stock Point Logistics Integrated Communications Environment 


SDETCE 


- Load a new DELIVERY ORDER into the database 

- Perform maintenance on the EQUIPMENT File 

- Perform maintenance on the EQUIPMENT DESCRIPTION File 

- Perform maintenance on the SITE NAME File 

Perform maintenance on the MANUAL File 

- Perform maintenance on the SERIAL NUMBER File 

- Generate REPORTS for the Project, a Site or Equipment 

- Generate a MAINTENANCE DELIVERY ORDER for a SPLICE Site 
- Generate MAILING LABELS for all SPLICE Sites 


чо OOo мо Cn ьо го н 
I 


0 - RETURN to the Function Selection Menu 


Please enter your choice: m 
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DELIVERY ORDER LOAD MENU 


[ жй ORDER LOAD HEN АЫ 


[1] Load a new delivery order 


[2] Return to the Main Menu 





SCREEN 15 


DELIVERY ORDER LOADING SELECTION MENU 


LOTUS 1-2-3 output file name to load: 


smunmmmum DN 


Effective Date of the Delivery Order: EESEED 
УУММОО 
Site Number on the Delivery Order: mu 
Enter the Site Number to be loaded: "E 
Do you want to enter another Delivery Order? (Yes or No): m 
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EQUIPMENT MAINTENANCE SELECTION MENU 


[1] Modify DataBase Entries 
[2] Review Existing Records 


[3] Return to the Main Menu 
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EQUIPMENT UPDATE FORMAT 


Current Record #: танин 


Site Number: ma Effective Date of Delivery Order: шасиши 
YYMMDD 


Feature Number: нинин 
CLIN Nomenclature/Description: OC 8 6S 
Quantity Ordered: нин 


Валс Опе Сое: HNNEZNDE.UN 
Monthly Maintenance Cost: HESCHNHHN, UN 
Unit Installation Cost: unun ú= 


Enter N - next record, P - previous record or X - exit: m 
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EQUIPMENT REVIEW FORMAT 


Current Record #: шшшиш 


Site Number: Effective Date of Delivery Order: EREEEN 
YYMMDD 


Contract Line Item Number (CLIN): шина 

Feature Number: BEHHHH 

CLIN Nomenclature/Description: EEGEREEZEEEEERENEEREEREEERH 
Quantity Ordered: mum 


Basic Unit Cost: вовзавипв EN 
Monthly Maintenance Cost: панинния ип 
Unit Installation Cost: ERREN HE 


Enter N - next record, P - previous record or X - exit: m 
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EQUIPMENT DESCRIPTION MAINTENANCE MENU 


[1] Modify DataBase Entries 


[2] Review Existing Records 


[3] Return to the Main Menu 
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DESCRIPTION UPDATE FORMAT 
Current Record /: mmmmam 
Feature Number: REHHEN 


Contract Line Item Number (CLIN):  mmmm 


CLIN Nomenclature / Description: пинипинининнинининтинииноинани 
TANDEM Model Number: EHENEDUNHGEN 

FDC Model Number: EHGUESEZHENEHNES 

Type of Component: Г 

Base Maintenance Price: ниси ни 

Notes: 


Enter N - next record, P - previous record or X - exit: 


SCREEN 21 


EQUIPMENT DESCRIPTION EDITING/TERMINATION INFORMATION 


1. To edit the NOTES field, ensure the cursor is on the word 
“memo" and press the <CTRL> and "PgDn" keys together. 


2. To EXIT the internal editor and SAVE the changes made to 
the NOTES field, press the <CTRL> and "W" keys together. 


3. To EXIT the internal editor WITHOUT SAVING the changes 
made to the NOTES field, press the <ESC> key. This will 
return you to the full screen mode for the record being 
changed. 


4. To SAVE the changes made by the internal editor and re- 
turn to the configuration program, press the <CTRL> and 
"W" keys together. 

5. To return to the configuration program WITHOUT SAVING the 
changes made by the internal editor, press the <ESC> key. 


Press ENTER to continue 
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DESCRIPTION REVIEW FORMAT 
Current Record #: mammam 
Feature Number: EBGHHH 


Contract Line Item Number (CLIN): same 


CLIN Nomenclature / Description: ТЕРГЕЕ ГЕТТО 


TANDEM Model Number: smumunnuauananm 

FDC Model Number: анасасвасвввава 
Type of Component: в 

Base Maintenance Price: 

Notes: 


Enter N - next record, P - previous record or X - exit: 





SCREEN 23 


SITE NAME MAINTENANCE MENU 


= шш 2 sp те — — n — — 


[1] Modify DataBase Entries 


га Review Existing Records 


[3] Return to the Main Selection Menu 





SCREEN 24 


APPENDIX A:  USER's MANUAL Page A2-62 


wu 


SITE ADDRESS DATA UPDATE FORMAT 
Current Record #: massa 


Number шы 
Abbrev 1 ated N ame ТТІТІГІТІТІТІТІТІТІТІТТІЛТЛТІЛІБМІТІТТІЛІТІТІІТТТІТІІТ!. 


Commander's Title HHEBHERBENESENHEREHEBEMH 

Full Name “ТІГІТТТТІГЛІТТТТІРГІТІРІІТТІТІТІТІІШІТІТІ 
Address - Line 1 EROS SSSR SERRE BREE eRe eee eee 
Address - Line 2 massa." I. 
City ашашазавевазвввасавасвасессвзсвасовавана 
State: mu 

lip Code шшш шшш ш шш 

Type Activity auum 

Maintenance Option 

Maintenance Response Time 


Enter N - next record, P - previous record or X - exit: 
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SITE ADDRESS DATA UPDATE FORMAT 


Current Record 7; mammam 


















Number E 
Abbreviated Name DSN SS See eB Oe ee eee ese eee 
Commander's Title азаввававевавеваваави 

Full Name ЕЕЕ ЕЧЕИ АЕА 
Address - Line 1 ТЕСИ ИЕ ОЧОТ 
Address - Line 2 “ГІТГІГІТТІРІІТІТІІІТІТІПГІТІЛТТІТТІТТІТІТІ- 
City МЕА 
State 1m 

Zip Code асепваапяя 

Type Activity аныш 

Maintenance Option nann 

Maintenance Response Time а 







Enter N - next record, P - previous record or X - exit: 
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115 


APPENDIX A:  USER's MANUAL Page A2-63 










Add a new manual 


SCREEN 27 


MANUAL MAINTENANCE MENU 


Update existing description(s) 
Delete existing description(s) 
Review existing description(s) 


Return to the Main Menu 


description 


MANUAL ADDITION FORMAT 


Current Record 4: 


Site Number: 


Feature Number: 
Contract Line Item Number (CLIN): 
CLIN Nomenclature/Description: 


Manual Description: 


Enter N - next record, P - previous 


SCREEN 28 


uamuSSHENNNENENENNEMUZSENENSNNENED 


record or X - exit: Ы 
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MANUAL UPDATE FORMAT 
Current Record іі: mmmmm 


Site Number: шш 


Feature Number: свваса 
Contract Line Item Number (CLIN): mass 

CLIN Nomenclature/Description: EENSSSNEZEUIRRREENEUMGEHHEHE 
Manual Description: BHSEHHESEREEESENRSURRENNHS 


Enter N - next record, P - previous record or X - exit: а 
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MANUAL DELETION FORMAT 


Current Record #: mmmmmu 


Site Number: жш 
Feature Number: annann 
Contract Line Item Number (CLIN): Samm 
CLIN Nomenclature/Description: севсевсяовасеосеневесвалас 
Manual Description: S080 eee eee 


Enter N - next record, P - previous record or X - exit: mg 
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MANUAL REVIEW FORMAT 


Current Record #: mmmmm 


Site Number: 


Feature Number: annman 
Contract Line Item Number (CLIN):  smmm 
CLIN Nomenclature/Description: C88 8 


Manual Description: EHMHHENNEESENISENEUSSHHOHNEU 





Enter N - next record, P - previous record or X - exit: m 
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| SERIAL NUMBER MAINTENANCE MENU 


CHANGE an existing Serial Number 


REVIEW existing Serial Numbers 


Return to the Main Menu 
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SERIAL NUMBER UPDATE FORMAT 


Current Record #: ивиши 
Site Number; wm Effective Date of Delivery Order: munaan 
YYMMDD 
Contract Line Item Number (CLIN): sams 
Feature Number: иминии 
CLIN Nomenclature/Description: NENONHUENNENNESNCHXERUNUEN 
Quantity Ordered: нии 


Serial Number sub-record mmm of mmm 


Serial Number: SEUSRONE 


Enter N - next record, P - previous record or X - exit: m 





SCREEN 33 


In order for the user to be able to perform a SERIAL NUMBER update, 
three (3) data elements must be known: 
1: The SITE NUMBER 
2: The EFFECTIVE DATE of the delivery order 
3: The FEATURE NUMBER of the serial number to be modified | 


If all tree of these elements are not known, the user should terminate 
the update- process and request a DATE LEVEL REPORT for the site number 
in question (Option "7" on the PROCESS SELECTION MENU followed by option 
"3" on the REPORT BY TYPE MENU). Any one of the three options will 
enable the user to view all three of the data elements needed for the 
Serial Number Update process. Once all three data elements have been 
obtained, the user can then select the Serial Number Update option. 


Please select the option desired below: 
ва Continue with the Serial Number Update process. 


[2] Exit the Serial Number Update process to obtain a DATE 
LEVEL Report and the three required data elements. 
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SERIAL NUMBER REVIEW FORMAT 


Current Record #: mmamm 
Site Number: Effective Date of Delivery Order: suuuuu 
YYMMDD 
Contract Line Item Number (CLIN): same 
Feature Number: ишинин 
CLIN Nomenclature/Description: азапазазававезпасовалвосвеюс 
Quantity Ordered: пип 


Serial Number sub-record saa о? шип 


Serial Number: носа 


Enter N - next record, P - previous record or X - exit: m 
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REPORT BY TYPE MENU 


Overall PROJECT Report 


Report for a particular SITE 


Report for a DELIVERY ORDER issued 
on a particular date 


Return to the Report Level Menu 
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ATTENTION! 


Turn on your printer. 


2. Insert paper. 
3. Position to top edge. 


Press ENTER to continue 
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| PROJECT LEVEL REPORTS | 


Report by EQUIPMENT Type 


Report by SERIAL NUMBER 


Return to the Reports Level Menu 
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EQUIPMENT PROJECT CE VER ЕВО 


ер ер "ED өс ор ЧЕР ЧЕР ЧЕР ЧЕР ЧЕР чт» чт» чи» G чи» чи» «и» чи» чыр тыў чыз ЧЫР «ит «ит «ие ##F ЧЫР ЧЫР - s ЧЫР ЧЕР ЧЫР ЧЫР ЧЕР ЧЫР ЧЕР ЧЫР ЧЫР ЧЫР «и чыр чыр "UD ЧЫР ЧЫР ЧЕР ЧЫР ЧЕР "UD "UD "UD ЕР "UD ЧЫР ЧЫР ЧЫР чи ws OE ит» ео и. “. чт» чт» чт» чт» ЕР «и» чи» Wm um 


Do you want a printed report? (Yes or No): N 


Enter C to continue or X to exit: 
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EQUIPMENT ZPROJECTOUEVEESIEPORII 


FEATURE? 


DESCRIPTION Q TY 


000101 
010201 
010301 
013001 
ОЕТ 
013201 
013202 
015001 
015101 
015201 
015301 
016001 
016101 
016201 
016301 


SITE POWER PREPARATIONS 

NS ILAP Yo MEG 2 
2 MEG MEMORY 2 
OSP WITH 6530 
CENTRONIX PRINTER 
6530 СЕТ 

PRINTER INTERFACE 
PAICH PANEL CABINET 
SYSTEMS CABINET 

I/0 POWER MODULE 
EXPANSION CABINET 
DISC PATCH PANEL 
THL PATCH PANEL 
ASYNC PATCH PANEL 
SYNC PATCHP ANEL 


сл 


rN 
<>» 4» ГО <1 ГО 4» СО СУ ГО СО сл го ГО Го Го 


Enter C to continue or X to exit: C 
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EQUIPMENT SERIAL NUMBER PROJECT LEVEL REPORT 


Do you want a printed report? (Yes or No): N 


Enter C to continue or X to exit: 
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EQUIPMENT SERIAL NUMBER PROJECT LEVEL REPORT 
ERECTA TOT COMETA SERIAL 


mie CLIN — FEATURE? DESCRIPTION DATE QTY QTY NUMBER 
ШЕ 0102 010301 2 MEG MEMORY 841127 9 4 
01 0102 010301 2 MEG MEMORY 841127 9 3 
01 0102 010301 2 MEG MEMORY 841127 9 2 
ШЕ 0102 010301 2 MEG MEMORY 841127 9 1 
01 0104 013001 OSP WITH 6530 841127 1 1 
ши 0105 013101 . CENTRONIX PRINTER 841127 2 2 
01 0105 013101 CENTRONIX PRINTER 841127 2 1 
01 0106 013201 6530 СЕТ ЗОШ 25 25 
01 0106 O OR 5530001 841127 25 24 
01 0106 ОЗОТ 65 30 90 RT о 25 23 
01 0106 015320125 5530 G9C ET с? 25 22 
01 0106 013201 6530 СЕТ SON; 7725.21 
01 0106 013201 6530 СЕТ 841127 25 20 
01 0106 OT 520 6530 СҮТ ода 25 - 19 
01 0106 013201" = 6550 CR| 51ll27 ' 25. 18 


Enter C to continue or X to exit: C 
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| SPE CEVER REP URS | 


Report by EQUIPMENT type 


Report of MANUALS 


Report by SERIAL NUMBERS 


Return to the Reports Level Menu 
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EQUIPMENT SITE LEVERS REE Onn 


Enter site number for which the report is desired: 01 


Enter C to continue or X to exit: 
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ЕТЕ ЕТИ ЕЕЕ eREP ORT 


Do you want a printed report? (Yes or No): N 


| Enter C to continue or X to exit: | 


SCREEN 45 


Page A2-72 





CLIN 





FEATURE? 


Enter C to continue or X to exit: 


EODEM ЗЕ СЕМЕН КЕРОКТ 


DESCRIPTION 


SCREEN 46 









0001 000101 SITE POWER PREPARATIONS 
0101 010201 NS- TARR e МЕБ 

0102 010301 2 MEG MEMORY 

0104 013001 OSP WITH 6530 

0105 013101 CENTRONIX PRINTER 
0106 013201 6330 CRI 

0107 013202 PRINTER INTERFACE 
0108 015001 PATCH PANEL CABINET 
0109 0151091 SYSTEMS CABINET 
0110 015201 I/0 POWER MODULE 
0109 015301 EXPANSION CABINET 
0112 016001 DISC PATCH PANEL 
0113 016101 THL PATCH PANEL 
0114 016201 ASYNC PATCH PANEL 
0115 016301 SYNC PATCHPANEL 


С 
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SITE LEVEL MANUAL REPORT 


Enter site number for which the report is desired: 01 


Enter C to continue or X to exit: 


Page A2-73 





SCREEN 47 


SITE LEVEL MANUAL REPORT 


Do you want a printed report? (Yes or No): 


Enter C to continue or X to exit: 
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SITE CLIN . FEATURE? 
010201 
010301 
013001 
013101 
013201 
013202 
015001 
015101 
015201 
015301 
016001 
016101 
016201 
016301 
ІШІ 


Enter G to continue or X to exit: 


APPENDIX A: 


SITE LEVEL MANUAL REPORT 


DESCRIPTION 


NS=TXP Qc MEG 

2 MEG MEMORY 

OSP WITH 6530 
CENTRONIX PRINTER 
6530 СЕ] 

PRINTER INTERFACE 
PATCH PANEL CABINET 
SYSTEMS CABINET 
[/0 POWER MODULE 
EXPANSION CABINET 
DISC PATCH PANEL 
THL PATCH PANEL 
ASYNC PATCH PANEL 
SYNC PATCHPANEL 
DISC CONTROELER 
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SITE SERIAL NUMBER REPORT 


USER's MANUAL 


Page A2-74 


MANUAL DESCRIPTION 


C 


Enter site number for which the report is desired: 01 


Enter C to continue or X to exit: 
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SITE SERIAL NUMBER REPORT 


Do you want a printed report? (Yes or No): N 


Enter C to continue or X to exit: 
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SITE SERIAL NUMBER REPORT 
EFFECT TOT COMPT SERIE 


SITE CLIN — FEATURE? DESCRIPT EON DATE QTY QTY NUMBER 
40 0109 015301 EXPANSION CABINET 851207 l- 1 
40 0112 01600017 DISCIRATCHIRANEL 851207 5 5 
40 0112 016001 DISC PATCH PANEL 851207 5 4 
40 0112 016001 DISC PATCH PANEL 851207 5 Б 
40> 20112 016001 DISC PATCH PANEL 851207 3 2 
40 0112 016001 DISC PATCH PANEL 851207 5 1 
40 0113 016101 THL PATCH PANEL 851207 l l 
40 0114 016201 . ASYNC PATCH PANEL 851207 2 2 
40 0114 016201 . ASYNC PATCH PANEL 851207 2 1 
40 0115 016301 . SYNC PATCHPANEL 851207 2 2 
403 00115 016301 SYNC PATCHP ANEL 851207 2 1 
40 1101 110101 ODISCICONTROCEER 951207 — 16 NUS 
40 1101 110101 -DISCOCONURUEDGR 851207. lo M 
40 1101 110101 DISC CONTROLLER 851207 18 16 
40 1101 110101 DISC CONTROLLER 851207 18 15 


Enter C to continue or X torresi M 
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DELIVERY ORDER DATE LEVEL REPORT 


EQUIPMENT with unit costs 


EQUIPMENT without unit costs 
SERIAL NUMBERS 
RETURN to the Reports Level Menu 
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DELIVERY ORDER LEVEL REPORT 


Enter site number for which the report is desired: 01 





| Enter C to continue or X to exit: x 
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DELIVERY ORDER LEVEL REPORT 
EFECTIVE DATE: 851207 


The following Delivery Order Effective Dates exist for Site 40 


351207 841127 850404 
551020 851110 


Enter C to continue or X to exit: 
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DELIVERY ORDER LEVEL REPORT 
EFFECTIVE Dale Во 207. 


Do you want a printed report? (Yes or No): N 


Enter C to continue or X to exit: 
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DELIVERY ORDER LEVEL REPORT 
ЕБЕЕСТИ МЕ ВАЛЕ: 651207 


SITE CLIN FEATURE? DESCRIPTION QTY UNIT BRICE 
40 0001 000101 SITE POWER PREPARATIONS 1 101886.00 
40 0101 010201 NS-TXP, 2 MEG L3 86760.00 
40 0102 010301 2 MEG MEMORY l; 19800.00 
40 0104 013001 OSP WITH 6530 1 15507550 
40 0105 013101 CENTRONIX PRINTER 3 1615.50 
40 0106 013201 65308 Chi 25 231 50 
40 0107 013202 PRINTER INTERFACE 1 409.50 
40 0108 015001 PATCH PANEL CABINET 3 2250.00 
40 0109 015101 SYSTEMS CABINET 4 14220.00 
40 0110 015201 I/0 POWER MODULE 12 3150.00 
40 0109 015301 EXPANSION CABINET | 2250500 
40 0112 016001 DISC PATCH PANEL 5 6097.50 
40 0113 016101 THL PATCH PANEL 1 515300 
40 0114 016201 ASYNC PATCH PANEL à 09 250 
40 0115 016301 SYNC PATCHPANEL 2 DO OU 


Enter C to continue or X to exit: C 
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DELIVERY ORDER LEVEL REPORT 


Enter site number for which the report is desired: 01 


Enter C to continue omeX to exit: 
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DELIVERY ORDER LEVEL REPORT 
EFFECTIVE ШАТЕ ЖОРУ 


The following Delivery Order Effective Dates exist for Site 40 


851207 841127 850404 
851020 551110 


Enter C to continue or X to exit: 


SCREEN 59 


DELIVERY ORDER LEVEL REPORT 
ЕРРЕСТТУЕ ВЕ: 85120 


Do you want a printed report? (Yes or No): N 


Enter C to continue or X to exit: 





SCREEN 60 
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FEATURE? 


000101 
010201 
010301 
013001 
Ol 5101 
013201 
013202 
015001 
015101 
015201 
015301 
016001 
016101 
016201 
016301 


Enter C to continue or X to exit: 


VERI ERIEUPDBESSPEVELTREPORT 
EISE IE 9051207 


DESCRIPTION 


SITE POWER PREPARATIONS 
NS-TXP, 2 MEG 

2 MEG MEMORY 

OSP WITH 6530 
CENTRONIX PRINTER 
6530 CRT 

PRINTER INTERFACE 
PATCH PANEL CABINET 
SYSTEMS CABINET 

I/0 POWER MODULE 
EXPANSION CABINET 
DISC PATCH PANEL 
THL PATCH PANEL 
ASYNC PATCH PANEL 
SYNC PATCHP ANEL . 


SCREEN 61 
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SITE SERIAL NUMBER REPORT 


Enter site nunber for which the report is desired: 01 


Enter C to continue or X to exit: 





SCREEN 62 
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SITE SERIAL NUMBER REPORT 
EFFECTIVE DATE: S69 TAWJ 


The following Delivery Order Effective Dates exist for Site 40 


951207 841127 850404 
851020 551110 


Enter C to continue or X to exit: 





SCREEN 63 


SITE SERIAL NUMBER REPORT 
EFFECTIVE BATE: 1850207 


Do you want a printed report? (Yes or No): N 


Enter C to continue or X to exit: 
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SITE SERIAL NUMBER REPORT 
ЕЕРЕШ ҮЕ DATE: 851207 


Page A2-82 


ВЕЗЕ TORSEOMBTOSSERFAL 
Site CLIN — FEATURE? DESCRIPTION DATE QTY QTY 


000101 SITE POWER PREPARATIONS 251207 
010201 NS-TXP, 2 MEG 851207 
010201 NS-TXP, 2 MEG 851207 
010201 NS-TXP, 2 MEG 851207 
010201 NS-TXP, 2 MEG 851207 
010201 NS-TXP, 2 MEG 851207 
010201 NS-TXP, 2 MEG 851207 
010201 NS-TXP, 2 MEG 851207 
010201 NS-TXP, 2 MEG 851207 
010201 NS-TXP, 2 MEG 851207 
010201 NS-TXP, 2 MEG 851207 
010201 NS-TXP, 2 MEG 851207 
010201 NS-TXP, 2 MEG 851207 
010201 NS-TXP, 2 MEG 351207 
010301 2 MEG MEMORY 651207 

Enter C to continue or X to exit: C 


- 


УСКЕЕМ 65 


MAINTENANCE DELIVERY ORDER GENERATION PROGRAM 


Generate maintenance Delivery Order for Site Number: 40 


DISCOUNT and ESCALATION RATES 


the correct discount or escalation rates 


pos input are added to one (1) to generate 


LCN Hardware Maintenance Escalation Rate: 0.100 

LCN Software Maintenance Escalation Rate: 0.100 

SPLICENet Maintenance Discount Rate: 0.000 

Site Maintenance Escalation Rate: 0.822 

File name to be imported into LOTUS 1-2-3: NEWDO.PRN 
SCREEN 66 
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MAILING LABEL GENERATION PROGRAM 


Number of copies for each label: 01 


Site Number: 01 


SPLICE SITE MAILING CABER 





з SCREEN 67 
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INSTALLATION PROCEDURES 


Before using the integrated Configuration Management 
System, make a backup copy of all five disks. Work with the 
backup copy and store the original disks safely away. This 
will allow the initial files to be restored if files are 
erased, damaged or an accident occurs. 


Before the integrated Configuration Management System 
may be used, it must be installed on a micro-computer. 
u Collation is easily accomplished using a DOS command 
batch file supplied on the Initial Startup Disk. Programs 
were developed on an IBM-PC environment and tested on an 
IBM-PC AT. System performance on other than a 100% IBM 
compatible configuration is unknown and without guaruntee. 


The integrated Configuration Management System must be 
run on a hard disk system configuration. This is a 
limitation caused by the size and number of dBASE files 
which are part of the system. 


Ihe integrated Configuration Management System consists 
of five disks, one installation disk and four system disks. 
Each disk is labelled to reflect the portion of the system 
residing on each disk. The label identifies the directory 
where the system files must be loaded. Three directories 
will be created during the installation process if they do 
not already exist. These directory names may not be 
modified. System execution is dependent on files existing 
in predefined locations. 


Ensure the system default drive is the hard disk where 
the integrated system is to be loaded (ex: C» or D», etc.). 
Start system installation by placing the disk labelled 
Initial Startup Disk in drive A. Type the command STARTUP 
and follow the instructions and messages displayed on the 
Screen. 
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THE NAVAL SUPPLY SYSTEMS COMMAND 
STOCK POINT LOGISTICS INTEGRATED COMMUNICATIONS ENVIRONMENT 
( SPLICE) 
SYSTEM CONFIGURER AND CONFIGURATION MANAGEMENT SYSTEM 


MAINTENANCE MANUAL 


Document No. BBC - 02 


1 January 1986 
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Record of Changes 


Original 4 February 1986 
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List of Effective Pages 


Page 1 through 285 Origine 


140 


APPENDIX B: MAINTENANCE MANUAL Page 


Table of Contents 


Record of Changes ------------------------------------- 
List of Effective Pages ------------------------------- 
о aL 
Overall System Data Flow Diagram ---------------------- 
Configurer Data Flow Diagram (Level 1) ---------------- 
File Description Example ------------------------------ 
Data Flow Description Example ------------------------- 
Process Description Example --------------------------- 
Configurer Structure Chart (Overview - Level 0) ------- 
Configurer Structure Chart (Level 1) ------------------ 
ии scr oStructure Chart (Level 2) ------------------ 
Module Description Example ---------------------------- 
E ol Configurer Record Descriptions ----------------- 
Configuration Input Data File (CONFIG.SIT) ------------ 
раса File (COSTS.IN) ---------------------------- 
Configuration Management System Bachmann Diagram ------ 
dBASE III Data Base Structure Descriptions ------------ 


dBASE III Configuration Management System Indices 
Composition ------------------------------2-2--2---------- 


dBASE III Configuration Management System Program 
Invocation Sequences ----------------------------2------ 


Pascal SPLICE Configurer Program Source Code ---------- 


dBASE III Configuration Management System Program Module 
Source Code: 
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11 


12 


14 


15 


16 


| 7 


20 


22 


24 


28 


29 


за 


33 


34 


CONFMOD. PRG 


CONFREV. PRG 


CONPUPD ERG 


БАТЕКРІЗ BRG 


DELAY.PRG -- 


DESPNMODOPRG 

DESPPREV. PRG 
ВЕЗЕБЕНЕВ PRG 
EOPETNPCOPRG 
EOPDTPRC.PRG 
ЕОВБЕШБЕТ PRG 
LoOPSTRPI.PEG 
ЕОШТЕС МВ PRG 
EOUIPREV.PRG 
EOUIPUPD.PRG 
MAINMENU.PRG 
MAINTDO.PRG 

MANULADD. PRG 
MANULCMD. PRG 
MANULDEL. PRG 
MANULREV. PRG 
MANULUPD. PRG 
MKLABELS. PRG 


ММ ТЕРГ РЕС 
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NEWDOADD. PRG 
NEWDOCMD. PRG 
NEWDOCVT. PRG 
PROJRPTS.PRG 
REPORCMD. PRG 
SELECTOR.PRG 
SERNOBLD.PRG 
.SERNOCMD. PRG 
SERNOREV. PRG 
SERNOUPD. PRG 
SITERPTS. PRG 
SNODTRPT. PRG 
SNOPJRPT. PRG 


SNOSTRPT .PRG 
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FILE DESCRIPTION 


PROJECT: SPLICE CONFIGURER 
DATE: 3 September 1985 


FILE OR DATABASE NAME: CONFIG.SIT 

ALIASES: None 

COMPOSITION: The CONFIG.SIT file contains the site specific 
data associated with all the designated Stock Point 
Logistics Integrated Communications Environment (SPLICE) 


sites. 


ORGANIZATION: Sequential. The structure of the file is as 
follows: 


DATA ELEMENT TYPE VARIABLE 
Site Number Integer 
Site Name String 
Documentation Site Group Integer 
Training Site Group Integer 
ж Maintenance Option String 
* Maintenance Responsibility String 
А String 
Installation Cost Real 
* NOTES: These data elements are not currently 


designated for implementation, but are specified for use in 
later revisions. 


1. Site Number range can be from one (1) to sixty-two 
(62). Current only fifty-six (56) sites are designated 
SPLICE sites and is the upper range limit. 


2. Documentation Site Group is used to restrict the 
maximum number of documentation sets that each site is 
allowed to receive. 


3. Training Site Group is used to restrict the maximum 


number of training courses that each site is allowed to 
receive. 
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FILE DESCRIPTION (Continued) 


4. Maintenance Option and Maintenance Responsibility 
are used together to establish the maintenance repair and 
response times desired by each site. 


5. Site Type restricts various hardware options to 
certain designated sites. The value is either "S" or "M', 
"5" designates a site as a Stock Point which can receive all 
hardware/software options. "М" designates a site as a 
Multiple Activity Processing System (MAPS) site which is not 
permitted to receive Local Computer Network 
(e.g. HYPERchannel) components. 


6. Installation Cost is a one time cost that is paid 


to the vendor for his initial site survey and installation 
preparations. 
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DATA FLOW DESCRIPTION 


PROJECT: SPLICE CONFIGURER 
DATE: 3 September 1985 


DATAFLOW NAME: Config Data 


ALIASES: None 


COMPOSITION: The data represented in this flow is the data 
coming from the input file "CONFIG.SIT". The site numsex 
selected for configuration is located within the CONFIG.SIT 
file and site unique information is extracted. This unique 
site configuration data is then used to create the site 
information record. This record is used to determine the 
maximum limits applicable to sites under configuration, as 
specified in the notes to the CONFIG.SIT file description. 
The site information record also is used to determine which 
repair and maintenance options are to be selected and serves 
to restrict certain types of options from being selected, 
depending upon the sites type designation. The Site 
Preparations Charge is taken from the CONFIG.SIT file and 
input as the first entry in the COSTTABLE array. 


NOTES: The user was previously prompted for the number of 
the site to be configured. 
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PROCESS DESCRIPTION 


PROJECT: SPLICE CONFIGURER 
DATE: 3 September 1985 


PROCESS NAME: Build Cost Array 
PROCESS NUMBER: eee 
PROCESS DESCRIPTION: 


1. Take a feature number for each element resident in 
the input cost file and place it in a feature number field 
in the cost array. 


2. Take a contract line item number for each element 
resident in the input cost file and place it in a contract 
line item number field in the cost array. 


3. Take a nomenclature description for each element 
resident in the input cost file and place it in an item 
description field in the cost array. 


4. Take the unit maintenance costs from the input cost 
file and place it in the fourth element of the cost array. 


5. Take the unit purchase price from the input cost 
file and apply a discount rate specified by the user. Place 
the result in the fifth element of the cost array. 


6. Take the unit installation cost from the input cost 
file and apply an escalation rate specified by the user. 
Place the result in the sixth element of the cost array. 


7. Take the basic monthly maintenance rate from the 
input cost file and apply an escalation rate specified by 
the user. Place the result in the seventh element of the 
ESSCt array. 
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PROCESS DESCRIPTION (Continued) 


NOTES: The cost array mentioned on the previous page is a 
two dimensional memory array. The array contains an entry 
for every line item identified on the Automated Data 
Processing Selection Office (ADPSO) SPLICE contract. The 
maximum number of entries expected is two hundred. This 
estimate is based upon the maximum number of possible line 
items that may exist for available selections. The site 
cost array structure is planned as follows: 


FEATURE NUMBER VARIABLE TYPE 
Contract Line Item Number (CLIN) SEF ine 
CLIN Description String 
Monthly Maintenance Real 
CLIN Unit Price Real 
Installation Cost Real 
Basic Monthly Maintenance Cost Real 
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MODULE DESCRIPTION 


SPLICE DESIGN 
DATE: 3 September 1985 


MODULE NAME: Print  Sortware 


MODULE PURPOSE: This routine writes software related 
contract line item numbers (CLINs) to the output disk file. 
It invokes global procedure LINE SETUP to generate the CLIN 
and accumulate section and appropriation totals. The global 
variable Quantity is used to compute the CLIN extended price 
and installation costs. The procedure is not used in 
maintenance computations. 


INPUT: None. 


OUTPUT: CLIN related data elements written to output disk 
file are: 


Line Number String- 7 
CostTable[I].featureno String 8 
CostTable[I].descript String 28 
Quantity Integer-3 
CostTable([I].purchprice Real-13, 2 decimals 
Extended Price Real-12, 2 decimals 
CostTable[I].basemaint Real- 9, 2 decimals 
MacnBEUdctor Real- 8, 3 decimals 
Maint Months есере 
CostTable[I].basemaint * Real- 9, 2 decimals 
Maint Factor * Maint Mones 
CostTable[I].instcost Real- 8, 2 decimals 
CostTable[I].instcost * Real- 9, 2 decimals 
Quantity 
Downtime Credit Real- 9, 2 decimals 
CostTable[I].basemaint * Real- 9, 2 decimals 


Quantity * Mamm ce 
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MODULE DESCRIPTION (Continued) 


PROCEDURAL DESCRIPTION: 


Begin [Print Software] 
CASE Type Software of 
1: Begin ( Per Processor Software ] 
Maint Factor = Momaint_Esc_Cost 
Extended_Price = Quantity * CostTable 
End 
2: Begin ( Per Site Software ] 
Maint Factor = Momarnt_Esc Cost 
Extended Price = CostTable[I].purchprice 
End 
3: Begin ( NETEX Software } 
Maint Factor = | 
Extended Price - CostTable[Ir].purchprice 
* Ouantity 
End 
END [End of CASE Statement] 
CALL LINE SETUP 
Compute System Downtime Component * See Notes 
Compute Downtime Credit * See Notes 
Write GEN “Data _Elements -tO Outpüt- БОО File 


End [Print Software] 
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MODULE DESCRIPTION (Continued) 


VARIABLES: 
PROGRAM GLOBALS: See CONFIGURE SITE module description 
MODULE LOCALS: None. 
PROCEDURE LOCALS: 
1: Type Software - Integer, parameter list 


variable, Range: 1-3, code controlling which values are 
assigned to the variables Maint Factor and Extended_Price. 


NOTES: 
Muy Computation for System Downtime Component: 
System Downtime Component « (Maint Factor * 
Quantity * CostTable[Il.basemaint) 
2% Computation for Downtime Credit: 


(((CostTable[Il.purchprice +CostTable[I].instcost) 
/48) +(CostTable[I].basemaint * Maint Factor) ) 
POR 
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PASCAL CONFIGURER RECORD DESCRIPTIONS 


de. COSTS.IN - file contains the individual contract line 
items which appear as line items on the generated delivery 
order. 


COLUMN FIELD 
POSITION LENGTH DATA ELEMENT DESCRIPTION 
01-04 4 Contract Line Item Number 
(CLIN) 
05 1 Blank (Filler) 
06-11 6 Contract Feature Number 
12 1 Blank (Filler) 
13-39 27 Component Description 
40-48 9 Basic Contract 
Malntenance Rate 
49 | Blank (Filler) 
50-60 11 Basic Contract Purchase 
- Ргісе | 
61 1 Blank (Filler) 
62-69 8 Basic Contract 
Installation Rate 
70-80 11 Blank (Filler) 


NOTE: All data elements are left justified. This file is 
read into a memory array (COSTTABLE). The data elements are 
modified by the discount and escalation rates entered by the 
user. The file is maintained in Contract Feature Number 
Sequence, with two exceptions.  T-Text and TRANSFER line 
items are not in Contract Feature Number sequence. Use 
extreme care when adding components and corresponding line 
items in the source code. Line items are identified in the 
Source code by using ccmments. An example of a comment is 

{ I=6 Serial Printers }. 
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PASCAL CONFIGURER RECORD DESCRIPTIONS (Continued) 


De CONFIG.SIT - file contains site specific informata 
used to determine several factors required in the 
configuration process. 


COLUMN FIELD 
POSITION LENGTH DATA ELEMENT DESCRIPTION 
01-02 2 Site Number 
03-30 28 Site Name 
31 1 Documentation Site Group 
32 1 Blank (Filler) 
33 1 Training Site Group 
34 1 Blank (Filler) 
35-38 4 Maintenance Option 
39 1 Blank (Filler) 
40 1 Maintenance Responsibility 
41 1 Blank (Filler) 
42 1 Site Type (Stock Points 
MAP Site) 
43 1 Blank (Filler) 
44-49 6 Installation Cost 
50-80 31 Blank (Filler) 


NOTE: All data elements are left justified. Site specific 
information is read into a memory array (SITEINFO). The 
file is maintained in site number sequence. Site 
installation costs were obtained from NAVSUP SPLICE 
personnel. Installation costs reflect costs originally 
specified in the SPLICE contract. If these costs are not 
correct or are revised, update the site preparation charges 
in CONFIG.SIT prior to running thom oni Toun ЕЕ 
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Page 1] GONDPGOSTISPrOogram Listing 

1l 01 ASO PHILADELPHIA, PA X 81735.0 
ШЕП ЕМЗО МЕСНАМТСЪВОВС, РА TITI 9393940 
E03. FMSO MECHANICSBURG, PA I 567210 
4| 04 MCAS CHERRY POINT, NC VIII 70296079 
ЕШ 05 MCAS EL TORO, CA IST (6473.0 
6} 06 MCAF QUANTICO, УА P 59748.0 
7| 07 MCAS YUMA, AZ | 59748.0 
8| 08 NAC INDIANAPOLIS, IN P 3974870 
9| 09 NARDAC JACKSONVILLE, FL AIT 188471.0 
10! 10 NARDAC NEW ORLEANS, LA Е T3918 
11 11 NARDAC NORFOLK, VA КИЛТ 74913 
ШІ 2 NARDAC PENSACOLA, FL VI 75523 
EE 13 NARDAC SAN DIEGO, CA ИЕ 74829 
14| 14 NARDAC SAN FRANCISCO, CA V TITI 75967 


15| 15 NARDAC WASHINGTON, DC 
16| 16 МАЗ BARBERS POINT, HI 
17} 17 NAS BRUNSWICK, МЕ 

18| 18 NAS СЕСТЬ FLIELD, FL 
leet? NAS KEY WEST, FL 

20} 20 NAEC LAKE HURST, NJ 

EE 21 NAS MEMPHIS, TN 

22| 22 NAS MIRAMAR, CA 

23| 23 NAS OCEANA, VA 

E2724 NAS PENSACOLA, FL 

ОООО 25 NAS WHIDBEY ISLAND, WA 
26| 26 NATC PATUXENT RIVER, MD 
fee 27 PMTC POINT MUGU, CA 
E78 NAVDAF Corpus Christi, TX 
КООШ ЛӘ NAVDAF GREAT LAKES, IL 
80 30 NAVDAF LEMOORE, CA 

31 ПОМАУОАЕ МОЕЕЕТТ FIELD, CA 
32| 32 NAVDAF ORLANDO, FL 

ШІ) 33 NRCC LONG BEACH, CA 

34| 34 NRCC NEWPORT, RI 

ШІ 32 NRCC PHILADELPHIA, PA 
E55 NRCC WASHINGTON, D.C. 
oer 37 NUWES KEYPORT, WA 

ШІ) 38 NAVSTA Mayport, FL 

39} 39 NSC CHARLESTON, SC 

40| 40 NSC NORFOLK, VA 

41| 41 NSC OAKLAND, CA 
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ШІ) 42 NSC PEARL HARBOR, HI VIII 89493.0 
43| 43 NSC PUGET SOUND, WA лат 89493.0 
44| 44 NSC SAN DIEGO, CA V 95520.0 
45| 45 NSD GUAM VII 101824.0 
46| 46 NSD SUBIC BAY, PI P 102835.0 
47| 47 NSD YOKOSUKA, JAPAN VII 108835.0 
48| 48 NSY PHILADELPHIA, PA it 59748.0 
49| 49 NSY PORTSMOUTH, NH I 59748.0 
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50| 50 NTC SAN DIEGO, CA 
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399748.0 
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SUBASE PEARL HARBOR; 


SWFPAC BREMERTON, 
TRE BANGOR, WA 

SWFPAC KINGS BAY, 
TRF KINGS BAY, GA 
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000101 
010201 
010301 
012401 
013001 
Ops o. 
03201 
0103292 
015001 
01510] 
0520] 
005301 


_ 016001 


Шет 
016201 
016301 
110101 
120201 
8205301 
130201 
140201 
210101 
2192097 
230101 
240201 
ТОДО 
2402207 
270301 
BIO TO 
310201 
510202 
320101 
320102 
320201 
820301 
320400 
320401 
320402 
320403 
320404 
320405 
330101 
590701 
330301 
340301 
360101 
370101 
410101 
420301 
450101 
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ООС КРИ тоатат Listing 


SITE POWER PREPARATIONS 


NS- 


ХР, 


2 МЕС 


2 МЕС МЕМОВҮ 

ЕШІНС PT ARIPH 

OSP WITH 6530 
CENTRONIX PRINTER 
6530 CRT 
PRINTER INTERFACE 
PATCH PANEL CABINET 
SYSTEMS CABINET 

I/O POWER MODULE 
EXPANSION CABINET 
DISC PATCH PANEL 
THL PATCH PANEL 
ASYNC PATCH PANEL 
SYNC PATCHPANEL 
DISC CONTROLLER 


DISC, WINCHESTER, 
DRAWER, WINCHESTER, 
MOVING HEAD, 
DISC, WINCHESTER, 
CONTROLLER 


DISC; 


TAPE 


128MB 


540MB 


TAPE DRIVE/FORMATTER 
CARD RDR/PNCH 

CARD READER 

LP/CR CONTROLLER 
1000 LPM PRINTER 

600 LPM PRINTER 
INTRPROC BUS(INCL.W/010101)0.0 
FIBER OPTIC LINK CNTRL 
FIBER OPTIC CABLES 
TANDEM/P-E HC ADAP 


HR DAPTERTZ ND TRUNK INTE: 
HOCECABINET 


(3 ADAP) 


ШІН PROTDDER 


HE 
HC 
HC 
HC 
HC 
HC 


BURROUGHS 
BURROUGHS 


TRUNK, 
TRUNK, 
TRUNK, 
TRUNK, 
TRUNK, 
TRUNK, 


SOO ei i 
0000 вт 
ООО ЕЛ, 
250075, 
AVOOP ET. 
55000 PT; 
HTC He 
DEP HC 


ECBDIC-ASCII RAM 


HC 
HC 
Ше 
ШЕ 
He 


128MB 
240MB 
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oO 
439.2 
GOD 


198. 85 
ЗОО 
65598 
2.44 
97512, 
252 
48.8 


e 
eU CC 


О 92 


61000 
DOO 
ZEE) 
505 2) 
14.0 
194.22 


о о шс со о 
лл о 22го со 


ЕО 
ВО 
Токо 


PROC I/F(P.E./INTERDATA)19.0 


ADATPER 


(IBM 360/370) 


21570 


DESPIEPROUNIVAC 1100,490)215.0 
REAP TER(E IPS DEVICE) 


PROC I/F 


ASYNCH CNTR 


161 


2150 


(MINI-COMPUTER)19.0 


296 


Раде 24 
O20 Qu 0 
96400.0 ӘЛДЕ 
22700070 ПИЕ 
2000-0 TOOS 
1485.0 2100€ 
Jo RU (720 
255,0 TOOL 
455.0 0.0 
2500. 0 400. 
J5600.0 600. 
3500-70 600: 
220020 400. 
ло Пасо, 
55020 90 
uS ILO 
Q5 о 
1050010 200. 
ВО SE 
T: 00-0 DIZ ae 
2650107 0 450. 
395000 625 
610070 00 
47500.0 475. 
20442.0 50 
2000.9 УЕ 
260020 ТОЭ 
2000 0 T0 
14000.0 VOOS 
Ша 0.0 
3500020 450. 
UD 0.0 
38940 .0 ОО 
205-0 0.0 
3760.0 o 
14900.0 3007 
400.0 Do 
800.0 ut) 
307570 050. 
6250.0 020 
12600 .0 Оо 
Д БОЕО O 
380440.0 0-0 
38440.0 Uu 
Do D O. Ü 
4060.0 Ша 
о 0.0 
38440.0 0.0 
3951570 0.0 
4000.0 0:70 
3/900. 0 FZS 


© ое 


Oa OQ 


ос со оого 


S OIOI 


© 
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Ба ed 507 
521 4505 
53| 4504 
54| 4505 
551 4506 
56| 4507 
57, 4508 
58| 4509 
59| 4601 
60} 4602 
61| 4701 
62| 4702 
63| 5101 
64| 5102 
s 29103 
66) 5201 
67 5202 
68085203 
69| 5204 
704 75205 
710] 5206 
та 75207 
73 253408 
74| 5309 
| 5310 
J64 5311 
ТІ» 5312 
751 3313 
79), S314 
80| 5401 
815195502 
S21 5902 
931.5903 
84| 5504 
851 5505 
86| 5506 
ӘЛІ 5507 
88| 5508 
99195509 
2015551909 
ОВ 
ЗИ | 455 
ПО | ро 
ЈА pos 9 
95/1 Г) 
961 5528 
“755 0 
2810755 
94655 

100| 5511 


450102 
450103 
450301 
450302 
450303 
450304 
450305 
450306 
460101 
460201 
470101 
470201 


таро шал 


510201 
510301 
520101 
5209102 
5201058 
520104 
520105 
520106 
520107 
530102 
530103 
530104 
530105 
221106 
530107 
530108 
540201 
550102 
250103 
550201 
550301 
550401 
550501 
550601 
550602 
550701 
550702 
550703 
550704 
550705 
550706 
550707 
550708 
550709 
550710 
550711 
550801 
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COSTS.IN Prosram Pub 


ASYNCH EXTENSION BOARD 
AUTOMATIC CADDING UND 
COMM SUBSYSTEM BASE 
BASE ADD-ON 

RS-232 LIU/CABLE 

6100 CABLE/30M 

6100 CABLE/45M 

6100 CABLE/60M 

BIT SYNCH CNTR 

BYTE SYNCH CNTR 


"COMM. PATCH PANEL/LINE MON 


ARCLI 

GUARDIAN OS 

BATCH SUBSYSTEM 
FDCSSYS UTILITIES 
ENCOMPASS 

ENABLE (P/O 520101) 
ENFORM (P/O 520101). 
PATHWAY (P/O 520101) 
TMF (P/O 520101) 

DDE (P/O 520101) 

FDC TPS SAS 

ENSCRIBE (P/O 510101) 
SORT/MERGE (P/O 510101) 
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26.84 
8.19 
16020 
124:0 
12-0 
OI 
ОЮ 
Ou 
5002 
192968 
140.4 
7.02 
158.6 
61:20 
125 
2325929 
675 | 
85. 4 
10577 
1220 
36.6 
240.0 
226, 
DE 


FUP (FILE UTIL PRG,P/7OS10101 0 
PUP(PERIP UTL PRG,P/O5101010.0 


BACKUP/RESTORE(P/O 510101) 
FILE SYSTEM SECURITY 


0.0 
600.0 


SYSTEM CARD READER SUPPORT TORO 


SPOOLER (BP/O9510109) 
ENVOY (P/O 510101) 


24.4 
(539 


CUP(COM UTL PRG,P/O 510101)0.0 


EXPAND 

EXCHANGE RJE HASP 
AM3270 ACCESS METHOD 
ALS ACCESS. METHOD 


1220 
24.4 
24.4 
24.4 


HYPER LINK ACG MD(P/O5101@ Tom 


FCN PUP SUPPORT 

DELETED FDC CRT SUPPORT 
6100 ATP 

6100 BSC 

6100 ADCCP 

6100 TINET 

BURR POLL/SELECT 

SNAX AND SNAX/HLS 
TRASZ] 

AM 6520 

ЕОС БМА ТУПЕБРАСЕ РАСЕРСИ 
FDC DLANET INTERFACE PENG 
BURROUGHS HTCENEREX 


162 


ОЕ 


Раде 25 
4300.0 188.0 
1540.0 0.0 
2367398 630.8 
19374.0 500.8 
1869.0 1572 
145.0 078 
160.0 0.0 
175.0 070 
6059 1! 125 Щ 
5800 0 100 29 
66539 100.98 
5145.0 520 
350020 1253 
4444,0 . 
1000.0 О 
8000.0 150 
15000 0.0 
2000210 0 208 
250070 0 38 
250/01 0.0 
500.0 О. 
3900819 0.08 
0.0 0.0 
0.0 0 8 
0.0 0.0 
Do 0.0 
0.0 О 
5000.0 0.0 
0.0 0 29 
50070 0.0 
0-0 0.0 
Du 0.0 
2000 350 50.0 
500509 5028 
50020 5078 
500-20 50.8 
275 0, 0.9 
0.0 О 
130009059 0.0 
430.0 5028 
430.0 5028 
430.0 5028 
4300 50 58 
430.0 50 26 
430.0 10228 
860 D 78.0 
430.0 50 28 
84000.0 0.0 
2500070 0.3 
3910 0.0 
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Nd 5512 
02| 55 
NS] 55 
104| 55 
NUS 55 
me | 55 
ШІП) 55 
moe) 55 
moo) 55 
EDU 55 
an 55 
ШІ! 55 
a 55 
EU] 55 
ТЕ 5520 
ШІСІ 5521 
ШІ? 55 
ШОО | 55 
II 5522 
ша 5523 
ШІ! 55 
ШІ?!) 55 
M5) 55 
E 4| 55 
25) 55 
Eo 55 
m7) 6101 
о 6102 
E 6103 
ШОО 6201 
Ed 62 
E 62 
IE 62 
134| 62 
mem) 62 
ison, 62 
evi’ 62 
IE. 62 
ШЕГІ 62 
140| 63 
IE 63 
142| 63 
143] 63 
144| 63 
145| 64 
146| 64 
ШІ?! 65 
148! 66 
149| 8601 
I0 8602 


550602 
2120606 
250901] 
35092072 
550909 
551001 
2510072 
351003 
990101 
5351102 
551105) 
EE] 
251 202 
Sole 0S 
39130] 
сло? 
55150; 
235 304 
551401 
551402 
551403 
551500 
r 51501 
5915072 
s 150) 
551504 
6 0102 
E0103 
19201 
521001 
622001 
623001 
624001 
E2600] 
627001 
6027002 
628001 
029001 
622002 
630101 
520102 
9301.05 
630104 
630105 
640101 
640301 
650101 
660101 
860101 
860201 


CTP 
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ЕТ NNPrOdgram briscting 


DELETED HTC PRESENTATION 
BURROUGHS HTC 
BURROUGHS DLP NETEX 
DELETED DLP PRESENTATION 
CIP, BURROUGHS DLP 

PE 3200 NETEX 

DELETED PE3200 PRESENTATN 
CIP, PERKIN-ELMER 

IBM NETEX 

DELETED IBM PRESENTATION 
CIP, IBM MVS 

UNIVAC 1100 NETEX 

DELETED UNIVAC 1100 PRESEN 
CIP, UNIVAC 

TANDEM NETEX 


450.0 
450.0 
730.0 
150.0 
450.0 
680.0 
450.0 
450.0 
800.0 
450.0 
3150.0 
800.0 
450.0 
450.0 
326.4 


DELETED TANDEM PRESENTATION450.0 


CCP, TANDEM 
CEM, TANDEM 
DELETED DDN INTERFACE 
DELETED DDN SVC INTERFACE 
DDN INTERFACE SUBSYSTEM 
NETWORK MGMNT FACILITY GRP 
NMF BASE FACILITY 

NMF PERFORMANCE MONITORING 
NMF DIAGNOSTIC MONITORING 
NMF ACCOUNTING APPLICATION 
Die Oss 051015 

TGAL (P/O 510101) 

FILE COMPARSION UTILITY 
COBOL 

TAE O S1010 

BLOCK STRUCTURED LANGUAGE 
FORTRN-ANSI 78 

BINDER (P/O 510101) 

ENFORM (P/O 510101) 

DDL E/O 510101) 

BINDER (P/O 510101) 

FUP (P/O 510101) 

BOE) (Py OF 510 101} 

BINDER (P/O 510101) 

OSP (P/O 510101) 

ENCORE (P/O 510101) 

XREF “(P/O 510701) 

ІШШАРЕТЕЕ (P/O 510101) 

XRAY (P/O 510101) 

ENABLE (P/O 510101) 
RUNTIME MON SYS 


550.0 
О 
24.4 
EU. 0 
750.0 
324.0 
1590.0 
пао 
72. 0 
poc 


со саке 


ооо оо о о ео 
. „ œ . ^ . ° ° OV Oe (Were (л 

EE Ce е Со 

Ou N O P 


рее Сат» 


onc 


пе е о 


TANDEM DIAG SBSYS(P/O5101010.0 


TRANSFER 
T-TEXT 
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I 
0.0 
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— 
GJ 
N 
© 
© 
IS 


Un e 


св: 
GO Gi CG ee eG Ga 


СОКО СОКСО SS tS ee Ало! Ча сан (асса 


Се) 


e % % ро Ф 
CC Co COSE SOO OO CO Oe сас CO OS ae O Sa ae SS 


© 
C 
© 


еососососсосоесссссеосоолессоососесососссоссое =н се соса са 
. е . . ° ° е ° ° е. °. ° ° ° . С) Се ° ° ° ° ° ° е ° . е . е ° е е. е е е . 
с 


СОЛО D СО BCG Cs CS) CD e 


Page 4 
1511] 67 
1521 68. 
153| 71097 
154| 7201 
5507301 
156| 7401 
1570 XXXX 
3 XX XX 
159!) ХХХХ 
160| XXXX 
161| XXXX 
1692 Y XXXX 
тез. хо 
164| XXXX 
165| ХХХХ 
1665] ХХХ 
167| XKXX 
1681 81 - 
169| 81 
150 175287 
171] 83 
172) :84 
173| 85 
1741 89 
175| 90 
176| 91 
OP 
1781 93 
179| 94 
180| 95 
181| 96 
182, 96 
183| 97 
184| 98 
185] 99 
186| 99 
187| 99 
188! 99 


670101 
650101 
/10101 
72010] 
T30 KOJ 
740101 
39ХХХХ 
39ХХХХ 
39XXXX 
39ХХХХ 
XXXXXX 
ХХХХХХ 
XXXXXX 
XXXXXX 
XXXXXX 
XXXXXX 
XXXXXX 
810101 
51020] 
820101 
830101 
840101 
850101 
590100 
200101 
ОВО 
920101 
930101 
940101 
325010] 
960101 
960201 
270101 
980101 
3291001] 
292003 
993001 
994001 
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COSTS. IN Recgran Ciseeng 


CNFIG MGT QURY & RPT 1 T/CHO. 
SFTWRE CTL ORY ЕРТ lel, Gee 
COMPUTER OPERATIONS MAN БЕ 
SYSTEMS PROGRAMMER MAN SET SU: 


HARDWARE MANUAL SET 
PROGRAMMERS REF MAN SET 
TRATNING “GROUP T 
TRAINING GROUP TT 
TRAINING GROUP TITI 
TRAINING GROUP IV 
OPERATOR TRAINING 
HARDWARE OVERVIEW 
SYSTEMS RESOURCE THGE 
SYSTEMS TUNING AND XRAY 
DATA COMMUNICATIONS 


ЧАГ 
SPLICENET MIGRATION WORKSHPO. 
PM ON-CALL 0. 
PRVT MAINT FOR PER/CALL SITO. 
ON-CALL MAINTENANCE Um 
PER-CALL MAINTENANCE 0. 


EMERGENCY PER-CALL MAINT 16 
NETWORK ADMN COMP(P/O5502010. 
(Р/О 520101)0. 
INT (P/O S2010 O. 
TPS NTWK INTFCOMP(P/O5201010. 
DSTB TPS PROC CMP(P/05201010. 
INTGRTED DDL CMP(P/O 5201010. 
TPS RECOVERY CMP(P/O 5201010. 
(Р/О 510101) 0. 
(P/PERS65 
SPLICENET MIGRATION SUPPORTO. 
СМЕС MGT DATA & RP( MTN Coston 
CONTRACTOR TRAVEL COSTS O. 
PRE-INST TEST FAC.(SEE NOTEO. 
REMOTE BATCH TERML(SEE NOTEO. 
INTERACTIV TERM ACC SEE НОГОХ 
HAND ON TEST FAC SEE NOTE O0. 


TPS SIMULATION 
TPS APPL 


ENVISION 
CONTRACTOR PERS SUP 


164 


(сю) (аю) [аю] (шэ) в) (шэ) (сю) (сэ) (ср) ее (С> 
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ооо оо ооо осо осо ооо ооо о о (сэ (со) (чә) (бз) (б) (б) (С>) 


95000588 


90000 
427.00 
607.0 
375. 
437.0 


268637 и 
16427170 
8965570 
21909 
141099 


700008 


20000.0 
1500028 
10000.0 
15000 


80000 
9.20 


е ° ло». è è e ° ° . . è ° 
Eto OO OO оо ооо ооо eG eae 
= 


о Qo Qos oooqoondoqooqoqodqo @©@@Q © [аъ 
© 
© 
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CONFIGURATION MANAGEMENT SYSTEM 


BACHMAN DIAGRAM 


CONFIGURATION 
DATA BASE 
CONFIG.DBF 


EQUIPMENT 
DATA BASE 
EQUIP.DBF 


DESCRIPTION SERIAL NUMBER MANUAL 
DATA BASE DATA BASE DATA BASE 
DESCRIP.DBF SERIALNO.DBF MANUAL.DBF 
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dBASE III DATA BASE STRUCTURE DESCRIPTIONS 


Structure for database 
Date of last update 
Field Field Name 


SITENO 
SITENAME 
ОП ЕЕ СО 
SITENAMEFL 
SITEADD1 
STTEADDZ 
STTECTITY 
SITESTATE 
SIPEZEP 
10 SITETYEE 
11 MAINTOPT 
12 MAINTRESP 


O @ —J OY олњ шм -> 


** Total Record Width in 


Structure for database : 
Date of last update : 
Field Field Name 


FEATURENO 
CLIN 
DESCIPT 
MODELNO 
FDCMODEL 
TY PECOMPON 
BASEMAINT 
NOTES 


OO —J OY ON & WN 


** Total Record Width in 


CONFIG.DBF 


12/21/85 
Type 


Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 


Characters ** 


DESCRIP. DBF 


12/08/85 
Type 


Character 
Character 
Character 
Character 
Character 
Character 
Numeric 
Memo 


Characters ** 
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Width 


== U 
O +J — Q O O b. ON 


— 


Co 
GJ 


Dec 


Dec 
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dBASE III DATA BASE STRUCTURE DESCRIPTIONS (Continued) 


Structure for database : EQUIP.DBF 

Date of last update : 01/08/86 

Field Field Name Type Width 
1 EFFDATE : Character 6 
2 SITENO Character 2 
B FEATURENO Character 6 
4 ОПЕЕ Е Numeric 11 
5 MO MAINT Numeric 11 
6 UNIT INSTA Numeric 8 
7 QTY Numeric 3 

** Total Record Width in Characters ** 47 

Structure for database : MANUAL.DBF 

Date of last update : 01/11/86 

Field Field Name Type Width 
1 SITENO Character 2 
7 FEATURENO Character 6 
3 MANLDESC Character 24 

Гога! Кесога Width in Characters ** 5» 

Structure for database : SERIALNO.DBF 

Date of last update : 01/08/86 

Field Field Name Type Width 
1 EFFDATE Character 6 
р SITENO Character 2 
3 FEATURENO Character 6 
4 OTY Numeric 3 
5 TOTOTY Numeric В 
6 SERIALNO Character 8 

"Total Record Width in Characters ** 28 


167 


Dec 


NON IN 


Dec 


Dec 


dBASE III DATA BASE 


Structure for database 


APPENDIX B: 


Date of last update 


Field 


N) — о оом ооли м — 


153 


** Total Record Width in Characters ** 


Field Name 


FILLER1 
SITENO 
CLIN 
FILLER2 
FEATURENO 
ЕТЕШЕЕЗ 
DESCIPT 
FILLER4 
OTY 
PELLERS 


UNTIL PERICE 


FILLER6 
TOT PRICE 
FILLER7 
MO MAINT 
FILLER8 
MAINT FAC 
FILLER9 
MAINT MOS 
FILLER10 
TOT MAINT 
FILLER11 


UNIT INSTA 


ЕТЕШЕК| И 


TOT INSTAL 


FIBERS 


COMP DT CR 


FILLER14 
SYS DT CR 
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STRUCTURE DESCRIPTIONS (Continued) 


TED . DBF 
07/18/85 
Type 


Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Numeric 

Character 
Numeric 

Character 
Numeric 


. Character 


Numeric 
Character 
Numeric 
Character 
Numeric 
Character 
Numeric 
Character 
Numeric 
Character 
Numeric 
Character 
Numeric 
Character 
Numeric 
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Width 


-— —À NJ 


= — —À 


—À 


—À 
—À 


156 


Dec 
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dBASE III Configuration Management System 


DATA BASE 
FILE NAME 


ESNFTG.DBF 


EESCRIP.DBF 


ESSTP,DBF 


MANUAL.DBF 


SERIALNO.DBF 


INDICES COMPOSITION 


INDEX NAME 


CONFIG.NDX 


DESCRIP. NDX 


EFEOUTESIT: NDX 
EFEAT.NDX 
EOULE SO. NDX 
EQUIPDAT.NDX 
EOUIPPRJ.NDX 


MANULSIT.NDX 


SERNOSIT-NDX 
SERNODAT.NDX 
SERNOFEA.NDX 
SERNOPRJ.NDX 


INDEX KEY COMPOSITION 


SITENO 


FEATURENO 


SITENO 

FEATURENO 

SITENO + EFFDATE 

SITENO + FEATURENO 

EFFDATE + SITENO + FEATURENO 


SITENO + FEATURENO 


SITENO 

SITENO + EFFDATE 

SITENO + FEATURENO 

EFFDATE + SITENO + FEATURENO 


169 


APPENDIX B: 


MAINTENANCE MANUAL 


dBASE III Configuration Management System 


DATA LOAD 


SELECTOR . PRG 
MAINMENU. PRG 
NEWDOCMD . PRG 
NEWDOCVT.PRG 
NEWDOADD.PRG 
SERNOBLD. PRG 


CONFIGURATION 


FILE MAINTENANCE 


SELECTOR ERG 
MAINMENU. PRG 
CONFMOD. PRG 
CONFUPD.PRG 
CONFREV . РВС 


PROJECT 
LEVEL REPORTS 


SELECTOR, PRG 
MA INMENU . PRG 
REPORCMD PRG 
PROJBPTS.PRG 
EOPPREIRPT.PRG 
SNOPJRPT. PRG 


MAINTENANCE 
DELIVERY ORDER 


SELECTOR ERG 
MAINMENU.PRG 
MAINTDO. PRG 


PROGRAM INVOCATION SEQUENCES 


EQUIPMENT 
FILE MAINTENANCE 


SELECTOR. PRG 
MAINMENU.PRG 
EOUIPCMBCBREG 
EOUTPUPDOPES 
EQUIPREV. PRG 


MANUAL 
FILE MAINTENANCE 


SELEC TORT ERG 
MAINMENU.PRG 
MANULCMD.PRG 
MANULADD.PRG 
MANULUPD.PRG 
MANULDEL.PRG 
MANULREV.PRG 


SITE LEVEL REPORTS 


SELECTOR SeRG 
MAINMENU. PRG 
REPORCMDI PRG 
SITERPTS.PRG 
EOPSPBIEDSPISG 
MNLSTRE T. ERG 
SNOSTNPT.PEG 


LABEL GENERATION 
SELECTOR. ERG 


MAINMENU. PRG 
MKLABELS.PRG 
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DESCRIPTION 


FILE MAINTENANCE 


SELECTOR {ERG 
MAINMENU.PRG 
DESPMOD Ph O 

DESPPUPD rr e 
DESPPREV.PRG 


SERIAL NUMBER 


FILE MAINTENANCE 


SELECTOR. ERG 
MAINMENU.PRG 
SERNOCMD, PRG 
SERNOUPD. PRG 
SERNOREV.PRG 


EFFECTIVE DATE 


LEVEL REPORTS 


SELECTOR TERE 
МАТММЕМО.РКС 
КЕРОКСМЕСЕНЕ 
DATERPTS.PRG 
EOPDTPRG ЕКЕ 
ЕОРОТМРЕ E KG 
SNODTRPEPT ВЕБЕ 
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Page 1 SPLICE.PAS Program Listing 
Program SPLICE CONFIGURER (Textin, Input, Output); 
жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжкж 
Title 5 SBPDICE Configurer 
Authors : LCDR Robert L. Beard, III, SC, USN 
LCDR Winston H. Buckley, SC, USN 
LCDR Edward J. Case, SC, USN 
Purpose : To be used by Naval Supply Systems Command, SUP 0473, 


personnel as the principal means to configure new Stock 
Point Logistic Integrated Communications Environment 
(SPLICE) sites. In later versions additions will be 
made to assist in preparing augmentations to existing 


sites, as well as prepare annual renewal delivery orders 


for existing sites 


Developed: 04 October 1985 
Updated : 07 December 1985 


жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


General Comments: This program is being designed as an "expert" 
system. It will use a series of "rules of thumb" to develop and 
maintain SPLICE configurations at 62 sites throughout the world. 
Тһе SPLICE configurations developed to date have been: done by hand 
and have required extensive "hand message" by technical, financial, 


and contractor personnel to ensure their accuracy. This has proven 


to be both costly in terms of dollars and manpower. Ву prompting 
the user for key information, this "expert system" will develop 


technically accurate configurations, cost them out, and prepare the 


final delivery orders. 


жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжижжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


} 
} 
) 
) 
} 
) 
) 
) 
) 
} 
} 
} 
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The following constants, type and variable declarations are used by the 


} 


{ 
Software Bottling Company of New York screen generation program "SCREEN 
SCULPTOR". 

Type 


ВА ВВ SIR80 = SIRINGI 80]; STR79 = STRINGI79]; 
resSS - (staySS, prevSS, exitSS, nextSS); 


Const CopyrightSS-'(C)Copyright 1984, The Software Bottling Company Of New York'; 


{ DO NOP REMOVE The Above Copyright Notice 
This Program may not be used without the above Copyright Notice 
Const 
{ Esc, Up Arrow Key, Left Arrow Key , Page Up Key } 
escSS=#27; uSS='H'; 1SS='K'; puSS='I'; 
{ Blank, Down Arrow Key, Right Arrow Key, Page Down Key } 
blankSS=' '; dSS-'P'; rSS-'M'; ра55= '0'; 
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S ( Function keys F1-F10 } 
52 FISS: n; f2SS=' < ' f3SS='='; Ғ455-“»"; Ғ555- 2“ 
53 £6SS='@'; f7SS-'A'; £8SS='B'; f9SS='C'; £10SS='D'; 
54 retSS : STR2s''; 
55 
56 
57| Var 
58 answerss : String [1]; 
59 rangeSS : STR80; 
60 BeepOnSS, last fieldSS, retrieveSS : BOOLEAN; 
61 actionSS, last field actionSS : resSS; 
62 ПБ ТӨС. “БЕБІ? 
63 vtypeSS, screenSS, screen fieldSS, varSS : INTEGER; 
64 
65 
66| ( The following constants, type and variable declariations are used by the 
67 SPLICE configurer. } 
68 
69| Type 
70 Op Mode = (Hard, Soft, Document, Train, Maint, Other); 
71 ( Defines major components categories } 
T2 Title = сеза 5: 
73 Names = Array [T.12] Of String 2]; 
74 CostType - Record ( Record for cost data array ) 
79 featureno : String [6]; { contract feature number } 
76 Clim : Stringed; { contract line item number } 
77 deseript :: String I2; { contract item description } 
78 momaint : Real; { monthly maintenance w/ escalation } 
79 purchprice: Real; ( purchase price w/ discounts } 
80 instcost : Real; { installation cost w/ escalation } 
81 basemaint : Real; { basic monthly maintenance cost } 
82 End; { Record CostType } 
83 
84 
85 SiteType = Record { Record for site specific intormation } 
86 siteno : Integer; ( Site number } 
87 sitename 16 ое 7 ( Site name } 
88 documentation Integer; { Documentation class required } 
89 training : Integer; ( Training class required ] 
90 maint options : String [4]; ( Currently not used } 
gi Maint. responses Strange; { Currently not used } 
92 site type зо Бес ша Пие { Type=MAPS site [M] or Stock Pointe - M 
93 site MNSE COSC Real; ( Site installation cost w/o escallation) 
94 Ends ( Record SiteType | 
95 
96 | 
97, Const 
98 Filel - 'Costs.IN'; { Name of cost data file } 
99 Pile2 = Contig- lN; { Name of site configuration file } 
100| Е р, ( Name of screen image file } 


2 
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101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
ТИ 
2 
113 
114 
io 
116 
ЇЧ? 
118 
ШО 
120 
121 
122 
zs 
124 
125 
126 
[Б] 
128 
129 
130 
131 
II 
ESSI 
1341 
ЛЕБІ 
1361 
ISI 
1991 
ISI 
1401 
1411 
1421 
143I 
144I 
1451 
1461 
1471 
148I 
149I 
1501 


Month Name : Names = (‘January 


Var 
Mode 


Subtotals 
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'May 


'September', 'October  ', 'November ', 'December 


: Op Mode; 
SiteInfo : SiteType; 
: Array (0.2.5) of Array [12.3] of Real; 


t 4 ' 


, February ', 'March Арт 
, June D guy г, August 


{ Subscript for Totals } 
{ Record containing site specific info } 


{ Three subtotals for each section } 


Totals s Array [0..5] of Array [1..2] of Real; 


{ OPN & OMN Totals for each section } 


CostTable : Array [1..200] of CostType; 


{ Array of updated COSTS.IN file info } 


CardRdr, LIU, Processors, THYPERchannels : Integer; 
Maint Months, NETEX Months, DDN SW Months : Integer; 
A140, A150, A220, A400, A510, AXXX, I, Quantity : Integer; 
System Downtime Component, Downtime Credit, Maint Factor : Real; 
Emerg Maint Rate, Extended Price, Momaint Esc Rate : Real; 
Brock Point = Chak; { Variables for character responses } 
Screenfile S File; { File of Screen Images )} 

Site Preps : String [1]; { Yes or No user response variable } 
Day : String [2]; { Effective Day of Delivery Order } 
Year : String [4]; { Effective Year of Delivery Order } 
Line_Number : String [6]; { Contract Line Item Number } 

Month : String [9]; { Effective Month of Delivery Order } 
PRN File Name “String [12]; [ Output LOTUS SPRN file }  . 
Diskfile s TOXU; { Output Delivery Order File } 


($V-,C-,R-) ( Pascal 


BESSCREEN SCULPTOR(C) 


Directives used by SCREEN SCULPTOR. See Compiler Manual ) 
{$I SPLICE1.PAS Include Procedures In This File by SCREEN SCULPTOR. } 


(C) COPYRIGHT, THE SOFTWARE BOTTLING COMPANY OF NEW YORK, 1984, 1985 
** Turbo Pascai Version, Trade Mark Of Borland International } 


IX PE 


RECPACKSS = record 
(een, ON, Be, ol, DI, DS, ES, Flags: INTEGER; 


end; 


ШК. regsSS : RECPACKSS; 


ШҮРЕ 


video pointerSS 


VAR 


2 аштам | 1: 3840] of CHAR; 


{ Video Variables Set By SET_VIDEO_TYPE procedure } 
Exlorss VOLESGS, vonSS: byte; 
vdispSS: INTEGER; 


ies. 
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ТЕЛІ 
1521 
1581 
1541 
1521 
1561 
ТЕ 
1581 
1591 
160I 
ТЕТЕ 
1621 
T631 
164I 
ТОТ 
166I 
167I 
168I 
1691 
1701 
1711 
1721 
1731 
1741 
VISI 
1761 
ТҮРДІ 
1781 
1791 
180I 
ТӨЛІ 
1621 
1631 
1841 
185I 
186I 
187I 
188I 
189I 
190I 
JOUET 
1921 
post 
194I 
1951 
1961 
1972 
[931 
1991 
200I 


videoSS: ^video pointerSS; 


PROCEDURE BEEP(BeepOn: BOOLEAN); 
BEGIN 

if BeepOn then write(chr(7)); 
END; : 


PROCEDURE COLOR(foregr,backgr: BYTE); 
{ Select current color by setting Foreground and Background 
Any values between 0 and 15 are acceptable. See Tech Ref Manual 
} 
BEGIN 
if backgr>7 then foregr:=foregr+16; 
TextColor(foregr) ; 
TextBackground(backgr); 
END; С СООК) 


PROCEDURE WRITEC(vtext: STR80); 
BEGIN 
write(vtext); 
END; ( WRITEC ) 


PROCEDURE CLEAR KBD; 
{ Clear Type Ahead Characters From Keyboard } 
VAR kchar: CHAR; 
BEGIN 
while keypressed do read(kbd,kchar); 
END; ( CLEAR KBD } 


FUNCTION SET MONITOR TYPE: INTEGER; 
( Determine The Type Of Monitor Being Used ] 
VAR j : INTEGER; 


PROCEDURE CURSOR SET; 
( Set Cursor Size ] 
VAR vi V2, V3 : INTEGER; 


BEGIN 
if j=2 then 
begin ` 
v1:2$3d4; 
Ver=hoao; 
м: 
епа 
else 
begin 
ез рио 
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2011 v2:-b3b5; 
202I У3: =$359 
2031 end; 
ENT if (j22) or (j23) then 
205I begin 
2061 port{vl]:=$0A; portiv2]:=0; { Set High Cursor Scan Line } 
2071 ЕЕ: >08; pore v2}:=7; { Set Low Cursor Scan Line } 
2081 pourtiv3]:215 ( Set Border Color to BLUE } 
2091 епа; 
2101 END; ( CURSOR SET ) 
ВИТ 
2121 BEGIN 


ZIST  —j:-mem[$40:$10]; ( Figure out the monitor type } 
2141 j:2(j and $0030) DIV 16; 
BET CASE j OF 


2161 0: begin writeln('Illegal Monitor Mode'); halt end; 

ZI I 1: begin ( Set 40 column color to 80 column color ) 

2181 writeln('Use MODE camnand to set to 80. ( MODE 0080 )'); halt 
2191 end; 

2201 2-7 Videoss :=prEr($b800,0); { Graphics 80 } 

221 3: videoSS:=ptr($b000,0); { Monochrome } 

ESSI END; 


Sue VOLLoOos=$1; vonSS:=$29; vdispSS:=$3d8; { Video Off, On, Location } 
2241  CURSOR SET; ( Set To A Large Cursor ] ` 

2251 COLOR(14,1); ( Set Default Color } 

2261 | SET MONITOR TYPE:-2j; 

КОО END: { SET MONITOR TYPE } 

EOST C Е р 

2291 

230I PROCEDURE DISPLAY SCREEN (var screenfile : FILE); 

2311 { Load Screen From Disk. Display To Monitor } 

ИІ АК bload: array[1..3968] of CHAR; 


BST exist : Boolean; 

294T | 

235I PROCEDURE VIDEO OFF; { Turn Video Off } 
2361 BPGIN port[vsdispsS]:=voffSS; END; 
2371 

ZURI PROCEDURE VIDEO ON; { Turn Video On } 
2391 BEGIN port[ vdispSS]:=vonSS; END; 

2401 BEGIN 

2411 1f IOresult=0 then 

2421 begin 

243I exist:=TRUE; 

244I blockread (screenfile, bload|1], 31); 
2451 VIDEO OFF; 

246I move (bload[8], videoSS^, 3840); 
2471 VIDEO ON; 

248I end 


2491 else exist:=FALSE; 
2501 if not exist then 


175 


APPENDIX B: MAINTENANCE MANUAL Page 39 


Page 6 SPLICE.PAS-include file SPLICE1.PAS Program Listing 
2511 begin 
2521 color (15; 2); 
2531 gotoxy (29, lO); 
254I write (^G, 'Part of SPLICE.SCR is missing.'); 
2551 епа; 
сос. 
257I END; { DISPLAY SCREEN } 
2581 


2591 ( See SCREEN SCULPTOR Manual For A Description Of GETITEM ) 
2601 PROCEDURE GETITEM( 


2611 COL,LIN,LEN : BY TES 
2621 HYPES: CHAR; 
263I VAR WITEM : STR80 >: 
2641 РЕ STR80; 
2551 ITEM LOW,ITEM HIGH : STR80; 
2661 VAR RET : за; 
2671 REIRIEVE : BOOLEAN; 
2681 FGR COLOR,BGR COLOR : BYTE 
269I ү; 

2701 

2711 TYPE 

2721 PICI TYPE = set of CHAR; 

2191 

2741 CONST 


275I  confirm-zFALSE; ( If FALSE auto-skip to next field when field is filled } 
2761 1='К'; rs'M'; us'H'; ds'P';'dls'S' ; приза Кр приз | Ие 

2771 { Define The Function Keys } 

2781. 18 25. £22 Е = о а 9 ро 

2791 ГӨ ӘСТЕ Дре fe p u Fo ЕНЕ е 

2801 speciali keys: PICT TYPE - (Туға аг тте, ри, Без | 
2811. ‘pict. elements: PICK FYPE = | ОКО E NALE EON Cele 

2821 тв о ВЕ cr: BY DEI. 

2031 

2841 VAR 

2851 һсо1,рсо1,есо1,рісе дес,ісет дес, Сепрр! ,Сетрр2, ріеп,лТеп- 5 ШЕ, 

2861 kchar: str2; range check,clear25: BOOLEAN; 

2871 check,end of field,begin of field,sign flag, 

2881 special,dec flag,valid char: BOOLEAN; 

289I temp item, item: STRSO; 

2901 fchar: CHAR; 

2911 

2921 FUNCTION DATE CHECK(datevar: STR80): BOOLEAN; 

2931 ( Checks For Date Validity Excluding the following: 

2941 Does not check Leap Years. If datevar is correct then DATE GikG et i 
2951 CONST 


2961 month days: arrayl1..12] of INTEGERs(31,28,31, 30, 31,30, 915 9123807 S] D 20 IN 
2971 VAR imm,dd, yy: SIRZ; 

2981 mni,ddi,yyi: INTEGER; 

2991 error: INTEGER; 

3001 ch date: BOOLEAN; 
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3011 BEGIN 
3021 if ord(datevar[0])«»8 then 
3031 . DATE CHECK:-FALSE 
304I else 
305I begin 
3061 ch date:-TRUE; 
3071 пп:-сору(дағеуас,1,2); 
308I dd:=copy(datevar,4,2); 
3091 yy:=copy(datevar,/7,2); 
3101 val(mm,mmi,error); 
3111 if (error<>0) or (mmi<1) ог (mmi>12) then ch_date:=FALSE; 
шиш if ch date then ` 
3131 begin 
314I val(dd,ddi,error); 
ІЗІ 1Е (еггос<20) ос (441<1) or (ddi»month days[mmi]) then ch _date:=FALSE; 
316I end; 
SI7T if ch date then 
2181 begin 
EUST val(yy,yyi,error); 
320I if error«»0 then ch date:-FALSE; 
321I end; 
3221 DATE CHECK:=ch date; 
323I end; | 
3241 END; ( PROCEDURE DATE CHDCK | 
9251 i 
326I FUNCTION CHECK DATE(DATE, DATE LOW, DATE HIGH: STR80): BOOLEAN; 


B27 1 
3261 
8291 
Soul 
3311 
DIT 
EST 
334I 
3351 
336I 
ӨРТІ 
2 SI 
от 
340I 
341I 
3421 
343I 
344I 
345I 
346I 
347I 
348I 
349I 
От 


( Check Validity If Date and whether it falls between low and high } 
{ If low range date is higer than high range date then we assume } 

{ we crossed centuries eg. 09/09/84 to 01/01/10 } 

{ Also a null date is ignored } 


GONST dnulls ' / / ': 

VAR ch_date: BOOLEAN; 

BEGIN 

if date<>dnull: then ch date:=DATE CHECK(date) else ch Gate:=TRUE; 


if ch date and (date«cdnull) and (date low«»dnull) and (date high«»dnull) then 
begin 
if ch date then ch date:-DATE CHECK(date low); 
if ch date then ch date:-DATE CHECK(date high); 
if ch date then 
begin 
date: -copy (date,7,2) «copy (date,1,0); 
date low:-copy(date low,7,2)«copy(date low,l,6); 
date high:-copy(date high,7,2)«copy(date high,1,6); 
if (date low«-date high) then ( Low Date « High Date ) 
begin 
if (date«date low) or (date»date high) then ch date:zFALSE 
end else ( Low Date »> High Date } 
if (date«date low) and (date»date high) then ch date:-FALSE; 
end; 
end; 


TAF 
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3511 if ch date then CHECK DATE:-TRUE else begin CHECK DATE:-FALSE; end; 
3521 END; (PROCEDURE CHECK DATE) 

3591 

354I FUNCTION CHECK_RANGE(VAR item, item_low, item_high: STR80): BOOLEAN; 
355I { Check to see whether item is within and including low and high } 
3561 VAR. 1itemr, Jowr, highr: READ. 

3571 errori, errorl, errorh: INTEGER; 

3581 BEGIN 

359I CHECK RANGE: =TRUE; 

360I val(item low,lowr,errorl); 

361I val(item high,highr,errorh); 

3621 val(item,itemr,errori); 

3631 tf (errorl=0) and (errorh=0) and (errori=0) then 

3641 begin 

3651 if itemr«lowr then CHECK RANGE: -FALSE 

366I else if itemr>highr then CHECK RANGE: -FALSE; 

3671 end else 

3681 — CHECK RANGE: -FALSE; 

3691 END; ( PROCEDURE CHECK RANGE ] 

3701 

371I PROCEDURE MESSAGE(mess пит: ВҮТЕ); 

3721 ( Displays A Messaqe On Line 25 and sets global clear25 to TRUE ) 
373I VAR mess, temp item: STR79; mess length, start col: INTEGER; 

3741 BEGIN 

3751 color (14,1); gotoxy (1, 25); clreol; 

3761 | case mess num of 

2771 1: mess:-' Only O0 thru 9 Allowed '; 

3781 2: mess:=' Only O0 thru 9 or a space Allowed '; 

3791 3: mess:=' BAD Date OR Not Within '«item low«' & '« | 
380I item high«'. Use [Del] To Blank Out Digits. '; 


3811 4: mess:=' Number Not Within '«item lows' & '«item high«' Range '; 

3821 5: mess:=' Only 0 thru 9, decimal point OR - sign Allowed '; 

3831 6: mess:-' Only Y or N Allowed '; 

3841 7: mess: ` Only Mor F Allowed `; 

385I 8: mess:=' No More Room For Digits. Use [Del] key to remove '; 

3661 9: mess:-' No Space For Negative Numbers. Input Positions Must Be Larger '; 


3871 end; { case } 

388I mess length:-ord(mess[0]); 

389I start col:-(79-mess length) DIV 2; 

ВСЕ Е; 

ЗУ ДОО Starti cor 5); 

3921 COLOR TS P 4); 

393I write( G, mess); 

3941 cotes (col, Tim); 

SIST COLERE A T; 

396I CLEAR KBD; 

3971 END; (MESSAGE PROCEDURE) 

S9BT 

3991 PUNCLIION  GEICHAR(ctyvpe: CHAR; VAR Kchabp:oS7R2) S DOGDEEADNES 
4001 { if GETCHAR=TRUE оп return then kchar= (1 Е d ú dl in ра ра ес сш 
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4011 
4021 
4031 
4041 
4051 
4061 
4071 
4081 
4091 
4101 
4111 
4121 
4131 
4141 
4151 
4161 
4171 
4181 
4191 
4201 
421I 
4221 
4231 
4241 
4251 
4261 
4271 
4281 
4291 
4301 
4311 
4321 
4331 
4341 
4351 
4361 
4371 
4381 
4391 
4401 
4411 
4421 
4431 
4441 
4451 
4461 
4471 
4481 
4491 
4501 


{ if GETCHAR=FALSE on return then kchar is alpha numeric chars } 
{ ctype must be one of the following} 
| U=Uppercase, L=Lower Case, X=Any Char, 9=0..9,' ', #=0..9,-,+,. ) 
{ GETCHAR will filter out any control characters ) 
ШҮБЕР РІСТ ТҮРЕ = set of CHAR; 
БЕПЕІ esc = 27; cr = 13; bk = 
1='К'; г='М'; us'H'; Я-" 
IM MIO I3 ='> (742797: БЕР, 
fo='@ > Е/- А; 18- В; £9="C'; £10='D'; 
special keys: PICT TYPE = [l,r,u,d,dl,ins,pu,pd]; | 
mine COSE EPICDUEDYPE s [D1,12, 55, L4, [5, £6, £7, £8, £9, £10]; 
Var str: CHAR; special,correct: BOOLEAN; 
temps: STR79; 
BEGIN 
kchar:z''; 
GETCHAR:=TRUE; correct:=FALSE; 
repeat ( until getchar = TRUE ) 
special:=TRUE; 
repeat ( until a valid picture character ) 
repeat until keypressed; 
read(kbd,kchar{1]); 
if keypressed and (kchar{1]=chr(esc)) then 
begin 
read(kbd,kchar[2]); 
Кепаг[1]:=сһг(0О); 
Echar[0]:schr(2); 
end else 
Кепаг[О]:=сһг(1); 
Ш léar Line 25 } ° 
if clear25 then 
begin 
БЕШОГ (14, 1); 
uotoxy (1,25); 
clreol; 
gouoxy (hcol, lin); 
Clear25:=FALSE; 
color (FGR_COLOR, BGR_COLOR); 
end;{ Clear Line } 
if (not (ord(kchar{1]) in [esc,cr,bk])) and (ord(kchar[0])=1) then 
begin 
Био -кспаг | 1 |; 
a (S r>! ') and (str«s' ') then 
case ctype of 
'X': correct:-TRUE; 
'U': begin 
овен a 520] then str:schr(ord(str) and $df); 
kenari l =str; correct:=TRUE; 
end; 
'L': begin 
ШЕГІП | As. 2) then ^sEr:schrlerd(str) or $20); 


: dls'S'; ins='R’; u-'I'; А. 
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451I kcharl1]:sstr; cokrect:-IRUE. 
452I end; 
4531 '#': if (str in ['0'..'9','-','.']) then correct:=TRUE else message(5); 
4541 '9': if str in ['0'..'9',' '] then correct:-TRUE else message(2); 
4551 '8': if str in ['0'..'9'] then correct:sTRUE else message(1); 
4561 end { case } 
457I end { begin } 
458I else 
4591 begin {special character} 
4601 GETCHAR = FALSE; 
4611 соггесЕ:-ТКОЕБ; | 
4621 БЕР -кспав й: | 
463I end; 
464I until correct; 
465I if (ord(kchar[0])22) then { see if it is a special character } 
4661 begin 
4671 special:=FALSE; 
4681 GETCHAR?=IRUE | 
4691 if (kchar{2] in special keys) or (kchar[2] in func keys) then 
4701 рео 58 
4711 GBEICHAR: SEADSEB: 
4721 special:-TRUE; | 
4731 end else BEEP(BeerOnSs ) ; 
474I end; 
4751 until special; 
476Т feb: =kehar; 
4771 END; ( GETCHAR FUNCTION } Е | 
478I | 
4791 PROCEDURE DECH; ( Positions Cufsor At the Next Non Edit Character } | 
480I VAR elem end: BOOLEAN; tempbl: BYTE; | 
4811 BEGIN 
4821 if hcol«»(col«tcol-1) then 
4831 begin 
484T tempbl : -pcol; 
485I | elem end:-FALSE; 
4861 repeat 
4871 tempbl :-tempb!-1; 
488I if (pict[tempbl] in pict elements) or (tempbl«1) then elem end:-TRUE; 
4891 until elem end; 
4901 if tempbl»-1 then 
491I begin 
4921 hcol : hcol-(pcol-tempbl); 
493I pcol:-ztempbl ; 
494I end; 
4951 end else 
496I begin of field:-TRUE; 
4971 END; ( DECH PROCEDURE | 
498I 
499I PROCEDURE INCH; { Positions Cursor At the Next Non Edit Character } 
500I VAR elem end: BOOLEAN; tempbl: BYTE; 
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501I BEGIN 
5021 if hcol«»(col«len-1) .then 
503I begin 
5041 . tempbl:-1; 
505I . elem end:-FALSE; 
5061 repeat 
5071 tempb1 :=tempb1 +1 ; 
5081 if (pict{pcol+tempb1-1] in pict elements) or ((pcol«tempb!)»(len)) then 
509I elem end:-TRUE; 
EDU until elem end; 
5111 if tempb1<=(len) then 
БТ begin 
SIBI hcol:zhcol-«tempbi-1; 
SIAI pcol:=pcol+tempb1 -1; 
SII end; 
516I end else 
517I end of field:-TRUE; 
Sel END; { INCH PROCEDURE } 
5191 


520I 
5211 
DPI 
DES 
524I 
DESI 
526I 
S271 
6251 
ӨТ 
т 
ӘБДІ 
от 
ESSI 
5341 
Sool 
S501 
БТ 
5381 
одат 
540I 
541I 
542I 
5431 
5441 
545I 
546I 
547I 
548I 
5491 
550I 


PROCEDURE STRIP BLANKS(VAR temp item: STR80); 
( Strip Blanks On Both Sides Of passed item ) 
БЕТ, 1: BYTE; 

BEGIN 


if temp item«»'' then 

begin 
j:=ord(temp_item(0]); 
{ Strip Leading Blanks } 
m0: ` 
while (temp ібеп[і+1 ]=' ') amd (i<j) do i:=i+l; 
if (i>0) and (i<j) then temp_item:=copy(temp_item,i+1,j-i) 
else if (i=j) and (temp item[j]=' ') then temp ібет:=''; 
i:-pos(' ',temp item); | ( strip trailing blanks ) 
if i«»0 then temp item:-copy(temp item,1,i-1); 

end; 

END; ( STRIP BLANKS PROCEDURE ) 


BEGIN { Main Procedure Of GETITEM } 
item:=witem; { Store Actual Item In A Work Variable } 
elear25:=FALSE; 
if itype-'D' then 
begin 
pict:-'88/88/88'; 
lenis; 
end; 
NEtyvpe-'Y' then 
begin 
Meenot (item[1] in ['Y','N']) then item:s'Y'; 
ЕМЕР:- СІ). 
llen:-1; 
end; 
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5511 if itype='M' then 

552I begin. 

5531 if not (item[1] in | м ЕЈ) then iten ии 
BEAT. ONCE 

5551 їепг= 

556I end; 

boil ender field: =PAUSE, 

5581 begin of field:-FALSE; 

559I if (pict= Гу апр (а суре: СУ Леп рісе:- iX"; 
560I plen:-zord(pict[0]); 

SOL fchar:spuietiptenj; 

5621 ilen:-ord(item[0]); 

5631 (* Fill Item with blanks  *) 

5641 if itype<>'N' then (* If item is non numeric *) 


565I begin 

566I while ilen<len do 

5671 begin 

5681 item:=item+' '; 
5691 11еп: -11еп+1; 
5701 end; 

5711 while plen«len do 

5721 begin 

5731 pict:=pict+fchar; 
574I plen:=plen+1; 
5751 end; 

5761 end else (* If item is numeric *) | 


STI begin ( 
5781 strip blanks(item); ) | 
5791 if item='' then item:='0'; 

5801 ilen:=ord(item[0]); 

581I while ilen<len do 


5821 begin 

583I item:-' '«item; 
584I ilen:=ilen+1; 
5851 end; 

5861 while plen<len do 

5871 begin 

588I pict:="# pict; 
5891 plen:=plen+1; 
5901 ега; 


591I if ord(pict[0])»len then pict:-copy(pict,ord(pict[0])-1len-«1,len); 
5921 if ord(item[0])>len then item:=copy(item,1,len); 

5931  ilen:-ord(item[0]); plen:sord(pict[0]); 

5941" ` pict-dec:=pos('.' pict); 

5951 item dec:-pos('.',item); 

5961 ( Align Decimal Positions If Necessary ) 

5971. ir pict dec -atenidec Enea 

598I begin ( alignement ) 

599I check:zTRUE; 

600I ( If picture has no decimal point and item does} 
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6011 if (pict_dec=0) and cneck then 


6021 begin 

6031  item:-copy(item,1l,item dec-1); 

604I fillchar(temp item,ord(pict[0])-ord(item[0]), ' Bur 
6051 item:=temp_item+item; 

6061 check:=FALSE; 

6071 end; 

6081 ( If item has no decimal point and pict dces) 


6091 
6101 
611I 
612I 
ӨЛӨТ 
614I 
615I 
616I 
6171 
618I 
Тат 
6201 
621Т 
622I 
6231 
624I 
625I 
626I 
6271 
6281 
629I 
630I 
631I 
6321 
G SI 
634I 
635I 
636I 
6371 
6381 
6391 
6401 
6411 
642I 
6431 
644I 
645I 
646I 
6471 
648I 
6491 
6501 


if (item dec-0) and check then 
begin 
strip blanks(item); 
tempb2:-2plen-pict dec; { # of decimal points }; 
fillchar(temp item,tempb2,item[ord(item[0])]); 
item:-item«'.'«temp item; ( Add decimal trailing digits } 
ilen:sord(item([(0]); ( Get length of item } 
while ilen<plen do { Add blanks left} 
begin 
ібет:=' '+ібет; 
11еп:-11еп+1; 
епа; 
if ilen»plen then ( If The Item > Picture } 
begin 
item:-copy(item,1,pict dec-1); 
item:=item+'.'+temp item; 
end; 
check :=FALSE; 
end; 
{ If item decimal is further right than pict dec} 


if (item_dec>pict_dec) and check then 
begin { Move the item to the left dropping off numbers picts} 


plen:-ord(pict[0]); 
ilen:-ord(item[0]); 
item:-copy(item,item dec-pict dec«l,ilen-(item dec-pict dec)); 
ilen:-ord(item[0]); 
tempbi : -plen-ord(item[0]); 
fillchar(temp item,tempb!,item[ilen]); 
item:-item«temp item; 
ilen:=ord(item[0]); 
while ilen«plen do ( Add blanks left} 
begin 
item:-' '«item; 
ilen:=ilen+1; 
end; 
check: =FALSE; 


end; 
{ If pict decimal is further right than item's} 
if (pict_dec>item_dec) and check then 


begin 


tempb2:=plen-pict dec; 
item:=copy(item,1,item dec+tempb2) ; 
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6511 ilen:-ord(item[0]); 
6521 while ilen<len do 
6531 begin 
6541 item:=' ‘+item; 
6551 ilen:zilen-«]; 
656I end; 
6571 check: =FALSE; 
6581 end; 
659I end { alignement }; 


6601 
6611 
6621 
663I 
664I 
665I 
666I 
667I 
668I 
6691 
6701 
6711 
6721 
6731 
6741 
6751 
6761 
6771 
678I 
G79T 
680I 
681I 
6821 
683I 
6841 
6851 
686I 
6871 
688I 
6891 
6901 
6911 
6921 
6951 
694I 
6951 
6961 
697I 
698I 
BST 
700I 


end ( fillings); 
{* Copy edit characters to item *} 
for tempbl:-1 to len do 


if not (pict[tempbl] in pict elements) then item[tempbl]:zpict[tempbl]; 


(* Display The item on the screen *) 
color(FGR COLOR, BGR COLOR); 
gotoxy(col,lin); 
writec(item); 
(* Get Data From Screen If Retrieve is True) 
if retrieve then 
begin { Retrieve } 
{* Move cursor to first position by bypassing edit chars } 
pcol:z1; 
while (not (pict[pcol] in pict elements)) and (pcol«-len) do 
(* Readjust column } 
tcol:spcol; 
{* Handle Non Numeric Type Of Item *} 
if (itype<>'N'} and (pcol<=len) then 
{ pcol is position of cursor within field} 
begin {* Non Numeric Field *} 
repeat { Until range_check = TRUE } 
pcol s=tcel: 
hcol:=col+pcol-1; 
gotoxy(hcol,lin); (* Go to location on screen*) 
repeat 
end of field:-FALSE; 
begin of field:-FALSE; 
special: =FALSE; 
1Е getchar(pict[pcol],kchar) then 
begin 
writec(kchar); 
item[pcol]:=kchar([1]; 
dT 
gotoxy (hcol,lin); 
end else 
special:-TRUE; 
if special then 
begin ( Special Key Pressed ) 
ret:-kchar; 
special:zFALSE; 
if kchar({1]}=chr(bk) then { It is backspace } 
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7011 begin 
7021 dech; 
ПОЭТ gotoxy(hcol,lin); {Left} 
704I end else 
7051 if (ord(kchar(01)22) апа (ксһаг(21 іп (l,r,dl,ins]) then 
706I begin 
7071 case kchar[2] of 
708I l: begin dech; gotoxy(hcol,lin); end; (Left) 
ZOST r: begin inch; gotoxy(hcol,lin); end; (Right) 
пот dl: begin (Delete) 
EI tempb2:-pcol«1; {FInd where the next edit char starts} 
(121 while (pict[tempb2] in pict elements) and (tempb2«-len) do 
ГІЗІ { tempbl=start, tempb2:=end} 
7141 tempb2 :=tempb2+1 ; 
ШЕТ tempb2:=tempb2-1; 
VOI for tempbl:-pcol to tempb2-1 do {move chars left} 
ET begin ( & put blank at end] 
TIBI item(tempbl ]:zitem[tempb!-«1]; 
719I end; 
7201 item[tempb2]:-' '; 
ЕТ (rewrite the item) 
7221 gotoxy (col, lin); 
ТЗТ writec(item); 
NT gotoxy (heol, Lin); 
EST end; 
726I ins: begin (Insert) 
PST tempb2 : -pcol «1 ; | 
4281 while (pict[tempb2] in pict elements) and (tempb2«-len) do 
EST tempb2 : ztempb2- 1 ; 
7301 tempb2:=tempb2-1; 
ULT for tempb1:=tempb2 downto pcol«1 do 
ШӘ2Т Бедіп 
ЗІ item[tempb1]:zitem[tempb!-1]; 
734I end; 
EST item[(pcol]:-' '; 
736I Soto (col, lin); 
ТӘТТІ writec(item); 
7381 gotoxy (hcol, lin); 
7391 end; 
7401 end ( Case kchar }; 
7411 епа 
7421 else (esc,cr,pgup,pgdn,up,dn} 
743I special:-zTRUE; 
7441 end {If backspace }; 
7451 if end of field or begin of field then BEEP(BeepOnSS); 
7461 Date (end of field and (mot confirm)) or begin of field or special; 
7471 tempbt:=len; { Strip Trailing Blanks } 
7481 if itype-'C' then 
7491 while (item{tempb1 ]=' ') and (tempb1>0) do tempb1:=tempbi-1; 
7501 item[{ 0]:=chr(tempb! ); 
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YS range check; -zTRUE; 
7521 if itype-'D' then 
ZOSI begin 
7541 range check:-check date(item,item low,item high); 
7551 if not range check then message( 23); 
7561 end; 
Toi if itype='Y' then 
7501 ЗЕ НОЕ (i iCem(i]'in ( X N реа 
T391 begin 
760I range check: -FALSE; 
7611 message(6); 
7621 end; 
7631 if itype='M' then 
7641 if not (item(1] in ('M','F']) then 
7651 begin 
766I range check: -FALSE; 
7671 message(7); 
7681 end; 
7691 until range check; 
7701 епа ( If non numeric type of item) else ( if Numeric | 
7711 if (itype-'N') then 
7721 begin 
Е teol:=len; 
7741 repeat { Until range check-TRUE ) 
TISI len:stcol: | 
7761 tempbl : len; 
7771 = len:=pos('.',item); 
7781 | range check:-FALSE; 
7791 if lenzO0 then len:-tempbl 
7801: else len:=len-1;{ Item has decimal point ) 
7811 hcol:=col+len-1; 
2821. + pcols=len; 
7621 “tWoqouoxy (heel, bain), 
7841 special:=FALSE; 
7851 sign_flag:=FALSE; 
7861 end of field:=FALSE; 
7871 dec flag:=FALSE; 
7881 repeat 
ТВӘТ valid char:-FALSE; 
790I if getchar('#',kchar) then 
7911 begin ( Not Special ) 
7921 case kchar of 
793I : ( Sign ) if not sign flag then valid char:-TRUE; 
7941 ( Decimal point ) 
T951 if (len<>tempbl) and (not dec_flag) then 
796I begin 
7971 hecolishcolt2; pcoltslen:e2; gotoxy (nicole, 
7981 dec flag:-TRUE; sign flag:-TRUE; 
7991 end; 


8001 "0"... "91: validienar:=TRUE; 
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8011 end { Case kchar }; 
8021 ( sign flag - if FALSE we allow minus (-) sign } 
803I { dec flag = if FALSE we allow decimal (.) point } 
804I if (valid char) and (not dec flag) then ( Integer Portion ) 
805I begin 
8061 if (item[1]«»' ') and (len«^tempbl) and (sign flag) and 
807I not ((ord(item[0])»1) and (item[1]-'-') and (item[2]2'0')) then 
8081 message(8) ( Overflow Numeric Field ) 
8091 else 
810I begin 
ат if (not sign flag) then ( Erase Old Entry. Start New One ] 
SIT begin ( Sign Allowed ) 
813I for pcol:=1 to len-1 do item[pcol]:s' '; 
8141 if tempbl»len then 
ӘЛБІ for pcol:-len«2 to tempbl do item(pcol]:2'0'; 
8161 if (kchar[1]«»'0') then sign flag:-TRUE; 
817I Е 
818І ( Check if field is too small to accomodate a minus sign } 
819I if kchar[1]-'-' then 
820I begin 
821I if (len-1)<=0 then 
8221 begin 
6231 message (9); 
8241 sign flag:-FALSE; 
251 end else 
826I begin 
8271 item[len-1):='-'; 
8281 item(len]:-'0'; 
B2OT end; 
830I end else 
831I item[len]:-kchar(1]; 
8321 
833I ое (Е. мн. 
834I writec(item); 
351 Getoxy (hicol., lin)> 
8361 end else 
8271 Бедіп 
8381 { Insert A Digit. No Sign Allowed } 
8391 if not ((item[len]s'0') and (item(len-1]s2'-')) then 
840I if not end of field then 
8411 for pcol:s1 to len-1 do item[pcol]:-item[pcol-«1]; 
842I 
843I item[len]:-kchar; 
844I gotoxy (col,lin); 
845I writec(item); 
846I gotoxy(hcoL,lin); 
847I end; 
848I if (item[1]«o' ') and (len-tempbl) then end of field:-TRUE; 
849I end; 
850I end { Integer Portion } 
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8511 else ( Decimal Portion ) 
9521 if valid char and (sign flag) then 
SOT begin 
854I 1tem[pcol]:=kcharí(1); 
S551 writec(item(pcol]); 
856I if not end of fiela then 
Soy i begin 
858I ВО: = ВОО; 
Soul рсоі:-рсо1»1 
8601 епа; 
861I if pcol^tempbl then 
8621 begin 
8631 һсо1:-һсо1-1; 
8641 peol:spcol-)5 
865I end of field:-TRUE 
866I end; 
867I gotoxy (hcol,lin); 
868I end; 
869I end ( getchar is FALSE ) else ( getchar is TRUE ) 


8701 special:-TRUE; 

8711 ( Special Keys. DEL) 
8721 if special then 
873I begin 


874I ret:=kchar; 

5751 special:=FALSE; 

8761 if (ord(kchar[0])22) then 

8771 begin ( Case ) 

878I case kchar[2] of 

879I dl,l:( DELETE KEY PRESSED OR LEFT ARROW KEY } 

880I Case dec flag of 

8811 False: { Integer Portion } 

8821 begin : 

8831 sign flag:=TRUE; 

884I for pcol:-len downto 2 do item{pcol]:=item[ pcol-1]; 
8851 if (item(len] in (' ','-']) then 

8861 begin 

887I ijtemilenirs'0'; 

8881 sign flag:-FALSE; 

889I end; 

890I те: = v'; 

891I gotoxy (col,lin); 

892I writec(item); 

HOST GotoxytheoE Lin); 

894I end of field:-FALSE; 

8951 end ЧОЕ}; 

896I True: ( Decimal Portion ) 

9471 ( Put 0 à Cursor. Check If Going To Integer Part) 
898I if pict[pcol-1]='.' then {Are We In Integer Part?) 
e991 begin {YES. Initialize Variables} 

9001 hcol:=col+len-1; 
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9011 gotoxy (hcol,lin); 
902I dec flag:-FALSE; 
9031 end of field:-FALSE; 
904I end else 
905I begin 
9061 if not end of field then 
9071 begin 
908I hcol:=hcol-1; 
9091 pcol:-pcol-1 
910I end; 
911I gotoxy (hcol,lin); 
912I item(pcol]:-2'0'; 
913I writec(item[pcol]l); 
914I Gotoxy(hcol lin); 
S151 end_of field:=FALSE; 
9161 end; 
ЕЛЕЛІ CT} 
918I end ( dec flag CASE }; 
орат UG те тоа ЕЛ г £[4,f5,f6,T7,f18, £97 £10: special:-zTRUE; 
9201 eng: ( DELETE KEY CASE.) 
9211 end { Case } else 
9221 if (ord(kchar[1]) in [cr, esc]) then special:-TRUE; 
9231 end ( Special ); 
9241 if end of field and (not special) then BEEP(BeepOnSS); 
9251 until special or (end of field and (not confirm)); 
926I 
9271  ( Get Old Length back and find point position } 
928I len:-tcol; 
ЕОР рсо1:=роѕ('.',рісё); 
9301 
9311 { If no decimal point and 1st position is minus or blank then set to 0 } 
932T if (item[len] in [' ','-']) and (pcol-0) then 
9331 begin 
9341 ібет[1еп]:='0': 
EE — gotoxy ( col, lin); 
9361  writec(item); 
937I end; 
938I 
939I temp item:zitem; 
940I strip blanks(item); 
941I range check:-check range(item,item low,item high); 
9421 if not range check then 
943I begin 
944I message(4); 
945I item:-temp item; 
946I end; 
9471 
948I until range check; 
949I end;{ Numeric } 
950I end { Retrieve } else 
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9511 begin 
9521 if itype-'N' then strip blanks(item); 
9531 if itype-'C' then 


9541 begin 

955I tempb!:zlen; ( Strip Trailing Blanks ) 

956I while (item([tempbl]-' ') and (tempb!^»0) do tempb!:stempbl-1; 
9571 item(0]:=chr(tempb! ); 

9581 end; 

959I end; 


960I witem:-item; ( Return result Back To witem ) 

9611 END;( GETITEM PROCEDURE) | 
962 

963| (* This is a summary of the procedures in SPLICE!.PAS 
964 

965 | PROCEDURE BEEP(BeepOn: BOOLEAN); 

966| PROCEDURE CLEAR KBD; 

967| PROCEDURE COLOR(foregr,backgr:BYTE); 
968| PROCEDURE WRITEC(vtext: STR80); Write Chars Using Color ) 
969] FUNCTION SET MONITOR Type: INTEGER; Determine Monitor Type } 
970| { Display A Screen Sculptor Screen } ( 2:Color, 52Menem 

971| PROCEDURE DISPLAY SCREEN(screen name: STR80; Var file existSS: BOOLEAN); 
972| ( Display And Get An Item From. Screen. See Detailed Desription In Manual } 


Sound Beep if BeepOn=TRUE ) 
Clear Keyboard Buffer } 
Set Color } 


973} PROCEDURE GETITEM(COL,LIN,LEN : BYTE; ( Column, Line, Length } 

974 ПМ да * CHAR; { Туре= С, М, 9; 1, 706; 

975 Var WITEM : STR80; ( Variable Name ) 

976 РИС: STR80; ( Picture X, U, Ы, 9 Ви 
977 ITEM LOW,ITEM HIGH :  STR80; ( Range - Numerics/Date Only} 
978 Var RET : STR2; ( Returned Code ) 

979 REIRIEVE : BOOLEAN; { False=Disp Only, True=Get } 
980 FGR COLOR,BGR COLOR : BYTE { Colors Foregr, Bac orak 

981 hie EXTERN; *) 
982 

983 


984 (-*-*-*-*-k*-k- kk ko ko ko k.kLko- kk. k-k-k-k-k.k-k-k—k- kk. k.k-k-k—k-k—k.k.k-k-cko* 


985 


986 GLOBAL PROCEDURES 

987 

988| ЖК жк кк кк кк кк Ж Жж ж жж Ж Жж k ж.ж ж.ж k Ж жж жж жж LEN 
989 

990 { Global Procedures used by SCREEN SCULPTOR } 

991 

992 

9931 PROCEDURE ACCEPTA INPUTS; 

994 

995| ( Display a prompt on line 25 of the CRT and ask the user if he/she wants 
996 to accept or reject the data values input thus far. A "Y" or "N" response 
297 only is allowed. ) 

998 

999) Begin ( Procedure ACCEPT INPUTS ) 

1000 COLOR (14, 1): { Set foreground & background colors } 
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DOTOXY (1, 25); { Position cursor col 1, row 25 } 
ClrEol; ( Clear row 25 with blanks ) 
WRITE (' Do you accept the input values thus far? Yes or No 19 
answerSS :- 'N'; 
CGETITEM (70, 25, 1, Y answerss, 'U!, '', ''oxretsS, True, 12, 1); 
COTOXY (1, 25); { Position cursor col 1, row 25 } 
TextBackground (1); { Set background color to BLUE } 
Cirbol ; ( Clear row 25 with blanks } 


End; { Procedure ACCEPT INPUTS } 


PROCEDURE RET STATUS; 
( Check Status Of Variable retSS and return a code in 'actionSS' & set 'varSS' 
This procedure is called immediately following GETITEM } 


{ Input to this procedure: 

when retSS is length 1 Ше values are any of the ASCII chars 

when retSS is length 2 the values are uSS, 155, puSS, pdSS, function keys 

dSS, rSS 
( See Const Section For Meanings ) ) 

( Output: 

The following codes are returned in actionSS : nextSS, prevSS, 

exitss, staySS ) 

( Based upon 'actionSS' this procedure will then set 'varSS' to an ис 

which represents the next item (variable ) to get. } 


Begin 5 
last field actionSS :- exitSS; 
actionSS := nextSS; ( Initialize Action Code ) 
IF retrieveSS THEN ( Is retrieveSS TRUE? ) 
Begin 
IF ord (retSS(0]) » 2 THEN { Is retSS length 2 ? } 
Begin 


CASE retSS[2] of 
( Action to be taken depending on last key pressed } 
uSS, lSS : actionSS :-s prevSS;  ( Up Key, Left Key ) 
55. 5-5 = actionoS = mextss- [Down Key, Right Key) 
puSS : actionSS :- staySS; ( Page Up } 
pdSS : actionSS :- staySS; ( Page Down ) 
( Function Keys ) 
155, 22-5, P395, £455, "ESSS; 
TtO6SSMEERTSS, 2855, Е955, f1OSS : actionSS :- stayss; 
End { Case ret }; 


End 
ELSE ( retSS is length 1 } 
Begin 
IF retSS = escSS THEN actionSS := staySS { Escape Key } 
End; 


( Any other key not in above list will keep actionSS-nextsSS } 
End; (retrieveSS) 
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1051 CASE actionSS of 
1052 staySS: ; 
1053 nextSS: Begin 
1054 VaroS. = varSs m I)? 
1055 IF varSS > screen fieldSS THEN varSS :- 1; 
1056 IF last fieldSS AND retrieveSS THEN 
1057 actionSS :- last field actionsSS : 
1058 End; | 
1059 prevSS: Begin 
1060 varSS := varSS - 1; | 
1061 IF varSS < | THEN varSS :- screen fieldSS | 
1062 Ends i 
1063 ex1tSS: ; 
1064 End: (CASE. } 
1065} End; {PROCEDURE RET STATUS} 
1066 | 
1067 
1068| PROCEDURE GETREAL(COL,LIN,LEN : BYTE; ( Column, Line, Length ) 
1069 ITYPE : CHAR; [( Type= C N Ы 
1070 Var WITEM : REAL; ( Numerci Variable Name ) 
10711 PICT : STR80; ( Picture X, U, L; 9008 E 
1072 ITEM LOW,ITEM HIGH : REAL; ( Range - Numerics/Date Only) 
1073 Var RET : STRIS ( Returned Code ) 
1074 REPRIEVE : BOOLEAN; { False=Disp Only, True=Get } 
1075 FGR COLOR,BGR COLOR : BYTE); ( Colors Foregr, Backgr ) | 
1076 


1077| ( This Procedure converts numeric to string before calling GETITEM } 
1078| { It then converts the result back to numeric } | 


1079 

1080| Var 

1081 numSS, numloSS, numhiSS: 5ТК80; 
1082 errorcodeSS,dec posSS: INTEGER; 
1083 

1084| Begin 


1085 ( Get # of Decimal Positions ) 

1086 dec posSS:-ord(pict[0])-pos('.' , pict); 

1087 ( Convert item, low and high range to string } 
1088 STR (witem:0:dec_posSS,numsSs) ; 

1089 STR {item_low:0:dec_posSS,numloSS) ; 

1090 STR (item high:0:dec posSS,numhiSS); 

1091 GETITEM (col,lin,len,itype,numSS,pict,numloSS,numhiSS, 
1092 ret,retrieve,fgr color,bgr color); 
1093 ( Convert string to numeric item } 

1094 VAL (numSS, witem, errorcodeSS); 

1095} Епа; { Procedure GETREAL } 


1096 

1097 

1098] PROCEDURE GETINT(COL,LIN,LEN : BYTE; ( Column, Line, Length } 

1099 TTY PE 25 CHAR; { Types C; N; DP P 

1100 Var WITEM : INTEGER; { Numerci Variable Naine } 


MN a 
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1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
i12 
Т3 
1114 
ІШІ 5 
1116 
1117 
1118 


1119: 


1120 
1121 
ІШ?22 
| 123 
1124 
125 
1126 
1127 
1128 
1129 
1130 
ШЕ 
132 
W33 
1134 
18135 
1136 
ІШЕ 
1138 
ІШЕ 9 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
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PICT : STR80; ("Picture X. U, Г, 9 9688: ) 
ITEM LOW,ITEM HIGH : INTEGER; { Range - Numerics/Date Only} 
Var RET : STR2; { Returned Code } 
RETRIEVE 2 BOOLEAN; { False=Disp Only, True=Get } 
FGR COLOR,BGR COLOR : BYTE); { Colors Foregr, Backgr } 


{ This Procedure converts numeric to string before calling GETITEM } 
{ It then converts the result back to numeric } 


Var 
numSS, numloSS, numhiSS: STR80; 
errorcodeSS : INTEGER; қ 


Begin 
( Convert item, low and high range to string ) 
STR (witem,numSS); 
STR (item low,numloSS); 
STR (item high,numhiSS); 
СЕТІТЕМ (col,iin,len,itype,numSS,pict,numloSS,numhiSS, 
ret,retrieve,fgr color,bgr color); 
( Convert string to numeric item ) 
VAL (numSS, witem, errorcodeSS); 
Епа: { Procedure GETINT } 


{ End of SCREEN SCULPTOR Global Procedures | 


PROCEDURE LINE SETUP; 


Var 
Templ : String [2]; 
Шетр? § String [4]; 


Begin { PROCEDURE LINE SETUP } 
IF Siteinfo.siteno < 10 THEN 


STR (Siteinfo.siteno:1, Templ) ыы 


ELSE { 


STR (Siteinfo.siteno:2, Temp!); { Build the Contract 
Шира := Copy (Costtable [I].clin, 1, 4); { Line Number. (CLIN) } 
IF Siteinfo.siteno < 10 THEN { 

Line Number “- СОМСАТ (0 Templ , Temp2) (кжжжжжжжжжжжжжжжжчекж вж ) 
ELSE 


Line Number :- CONCAT (Templ, Temp2); 
ЕЕРЕЕ е + | 


( Accumulate the three totals for each section ) 
[жж жж жж жж жж Ж К К ККЖ У 
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1151 Subtotals [ORD (mode), 1] := Subtotals {ORD (mode), 1] + Extended Price; 
1152 IF Mode = Hard. THEN 
1153 Subtotals [ORD (mode), 2] := Subtotals [ORD (mode), 2] 
1154 + (Quantity * Costtable[I].basemaint 
ШІ е * Maint Factor * Maint Months) 
1156 ELSE 
1157 IF Mode - Soft THEN 
1158 Subtotals [ORD (mode), 2] := Subtotals [ORD (mode), 2] 
1159 * (Costtable([I].basemaint 
1160 * Maint Factor * Maint Months) 
1161 ELSE 
1162 Subtotals [ORD (mode), 2] := Subtotals [ORD (mode), 2] 
1163 + (Costtable[I]l.basemaint 
1164 F Maint Factor * Quantity); 
1165 Subtotals [ORD (mode), 3] :s Subtotals [ORD (mode), 3] 
1166 * (Costtable[I].instcost * Quantity); 
1167 (CCC aI Roo RI КЖ ЖУ ЖЖЖКЖЖЖХ | 
1168 { Accumulate the O&MN and OPN totals for each section } 
1169 (ЕЕЕ ЖЕЗ ЖЕ ЖЕ ЕЗБЕ ЕЖ ЕЕЕ RAR EE ay 
1170 
1171 IF (Mode = Hard) OR (Mode = Soft) THEN { Add to OPN Total } 
1:172 Totals [ORD (mode), 2] := Totals [ORD (mode), 2] + Extended Price 
1173 ELSE { Add to O&MN Total } 
1174 Totals | ОКО (mode), 1] :- Totals [ORD (mode), 1] *« Extended Price; 
11:75. оте ( Procedure LINE SETUP ) 
1176 
250573 
1178 | PROCEDURE HEADERS; 
11729 
1180| (ЕЖЕН КН ЕЖ ЖЖЖ ЖЕЖ Ж Ж ЖҰ ОЕ } 
ёт `í This procedure generates the headers which are written at the top of J 
1182 | each section of the delivery order. 


1183 (ЕЖЕ ЕЕЕ ЕЕЕ ЗЕ ЕЕ ОРЕ Е ЕЕЕ ЕЕЕ ЕЕ ЕЕЕ ЕЖ ЗЕ ЕЖ АЕ ЕЕЕ ЕЕ БЕ ЖЕЖ ФЕ КЕК ЕЕ 
1184 

1185| Begin ( Procedure HEADERS ) 

1186 WRITELN (Diskfile, ore ae и re tit tte 111 tte ott “n tre otter З 111 [E | Itt ae 


1187 t" “1 : и tt : ett tee i tur othe : Wee mesic "system!" ) e 

, , , r - , r 
1188 WRITELN (Diskfile, н irs газ DON газ Ди »" m газ 07 (n ue ("n "ш Cn a 
1 189 1010. 19 1 и tee ІҮ. у ОЕ. р 111 ПІ : "Downtime Г !'"Downtime'' y: 
1190 WRI'I'ELN (Diskfile, и ы? ete bai ett Е tit От etd a tte ди "oM 
1191 ни: А "Months"! | ' Component" ' ‚ Monit | Ча К 
1192 “Стейк гел шш 
1193 WRITELN (Diskfile, '"Contract'"', '"Feature"', Pr 
1194 "Monthly"! 'Maint"' "gg а !Pactored''' ) 
Пи "'Install"', '"Iinstall"', '"Factor , |Бас ШЕ 
1196 WRITELN (Diskfile, '"Line No." ', '"Numbers'', “"Тесспіріно ға” 
1197 '""Unit Price"', '"Unit Price"', '"Мазое"', "ЕДАС ОЕ E DM EN 
1198 "Maint'"', '"Costs"', ''"Costs'" , "рег Hour END Er OR EB 
1199 WRITELN (Diskfile); 
1200] End; ( Procedure HEADERS | } 
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1201 
1202 
1203 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
117 
1218 
219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
123] 
1732 
1233 
1234 
1235 
1236 
1237 
1238 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
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PROCEDURE WRITE A LINE; 
(AAA ЖЖ жж жж жж жж жж жж ЖЖЖЖ ЖЖЖЖ Ж ЖЖЖЖ ЖЖЖ ЖЖ ЖЖЖЖ ЖЖЖЖ J 
( This procedure is called by two disk file print routines, } 
{ PRINT MAINT and PRINT _DOC_or_TRNG to write the data elements } 
{ associated with each CLIN to the output disk file. } 
eee eee TTT Foo Eo op ooo EE EERE A EE EE KA EEE EE Ж) 
Begin { Procedure WRITE A LINE } 
LINE SETUP; 
WRITELN (Diskfile, '"', Line Number:7, '" "', Costtable[I].featureno:8, 


Iu собЕваре! 1 певегтре 28 , Odantity:3, 
Costtable[I].purchprice:13:2, Extended Price:12:2, 
ОЕ @lpasemaint. 922, Maint Pactor:8:3, 1, 
Costtaple I] baseinaine * Maint Factor * Quantity:12:2, 


'WO “£t oot oes oof bars IH Se 


, t 
End; ( Procedure WRITE _A LINE } 


PROCEDURE PRINT DOC or TRNG; 


РЕОСТАТ EER EES EEE EERE ee Tok Efa] 


{ Sets Parameters for FDC Training Courses and Documentation. } 


{ Sets both Maint Months and Maint Factor to zero (0) } 
(AO Oo toto 


Begin { Procedure PRINT DOC or TRNG ) 
Maint Months :- 0; ( No maintenance on training/documentation } 
Maint Factor :- 0; ( No maintenance uplift on training/documentation } 
Extended Price :- Quantity * Costtable[I].purchprice; 
WRITE A LINE; 
End;  ( Procedure PRINT DOC or TRNG | 


BROCEDURE COMPUTE SECTION TOTALS (Section Title : Title); 


ee et ee eee eee ee Ж ЖЖ Ж АЕ АЕ ЕЖ HIE oio) 


{ This procedure prints the totals accumulated for each section after the } 
{ last contract line number and associated data elements are printed. It } 
{ then prints the title for the next section and prints a new set of } 
( headers. After the last contract line number and associated data ) 
( elements have been printed, the O&MN and OPN totals for each section } 
[ ) 
{ } 


and the O&MN and OPN grand totals are printed. 
CRO OR GSS У 


Var 


K : Integer; 
OMN Total, OPN Total, Maint Totals : Real; 
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125] 
1252] Begin { Procedure COMPUTE SECTION TOTALS } 
1253 (ЖЖЖ К Е Е ЖЭК ЖЭК ЖЖК ЖЭК ЭКЕ к к те а 7 LU E 
1254 ( Add maintenance and installation costs for each section to O&MN } 
1255 { section totals. | } 
1256 Í *k* kk eode xotelokeeoekexokokekejok ОЕ ЖОЕ ОЕЕО ИСЕ ЕО 
1257 Totals | ОКО (mode), 1] := Totals [ORD (mode), 1] + Subtotals [ORD (mode), 2] 
1258 + Subtotals [ORD (mode), 3]; 
1259 IF Section Title = ‘Other’ THEN 
1260 AR Oo ЖЖ OBO oda kc dc kk } 
1261 { If processing the last section, check to see if "SITE POWER ) 
1262 ( PREPARATIONS" are to be included, then print the O&MN and OPN } 
1263 { section totals and grand totals. } 
1264 [ЖК ЕКОЕ К ЕЕЕ ЕК ЕЕ КОРЕК Е ЕКОЕ ОЕ СЕ ЕЕЕ ЕКОО ЕКОЕ ОНЕ eee 
1265 Begin 
1266 ( Compute Total amount of funds associated with maintenance } 
1267 Maint Totals := Subtotals [0,2] + Subtotals [1,2] * Subtotals [4,2]; 
1268 ( Write Maintenance Section Totals. Also, write the llardware 
1:259 and Software Section Totals. Show the total amount of funds 
1270 required for Maintenance. } 
1271 WRITELN (Diskfile); 
1272 WRITELN (Diskfile, 
1273 ЕТ i ги ius ин Mu га И. "Totals:"', 
1274 Subtotals (4, jae н Р 117 ит аа и 
1275 Subtotals. ЕЛЕС 
1276 Subtotals [4, 3]); 
1279 WRITELN (Diskfile, '" M on un (n Nds и Mud ("n LM и ал ги He 
1278 Hardware: '°, ¢ °°, Subtotales( 0a 
1279 WRITELN (Diskfile, и s (n dom ote a ot n" ost Ө га ue CB n 
1280 '"Software:"', '" "«!*. Subtotals [5 21 
1281 WRITELN (Diskfile, н T | p ." n vue ae 119 "е га Шыр. бө 101 
1282 ск ~ Totals). . SS алата Шора не) 
1263 IF Site Preps = 'Y' THEN { Is the response a "У" ог "№"? } 
1284 Begin 
1285 WRITELN (Diskfile); 
1286 WRITELN (Diskfile, ' "Section Title” s 
1287 HEADERS ; 
1288 (ЖКК СЕ ОКЕ ЕОС KOK BOE OO CK Е EE И 
1269 { Set up conditions to process Site Preparation } 
1290 { charges. } 
1291 ЕЖ Жак Ж ә Жас teak “eo akak o hb acto h EE Ee oe EE E E 
1292 Quantity 2- 1; 
12593 = lke (ТЕТ for SITE Phel om 
1294 Mode ;- Other; 
1299 Maint Factor ;s 0; 
1296 Extended Price :- Quantity * Costtable[I].purchprice; 
1297 WRITE A LINE; 
1298 End> 
1299 WRITELN (Diskfile); 
1300 WRITELN (Diskfile); 
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1301 ЕЕЕ DiSkfile, ии UUSUBTOTADS;' ', ''' O&MN"', 
1302 tn ME и OPN"'); 
1303 WRITELN (Diskfile); 
1304 WRITELN I (Diskfile, '" "'— "HARDWARE" , Totals (0, 11, 
1305 2. 
1306 WERDEEN CUDISkfile, "5 ""”, “"SOFTWARE: ©, Totals {1, 1], 
1307 os Totals 21). 
1308 ПИЕТЕ (Diskiilie, T “i *““POCUMENTATION ', Totals [2, 1], 
1309 Е 
1310 WRITELN (Diskfile, '" "', '"TRAINING"', 
1311 ТОСЕ ИИ 1015 18, 2]). 
1312 WRITELN (Diskfile, '" "', '"MAINTENANCE"', 
1313 и Totals {4, 2))+¢ 
1314 WRITELN (Diskfile, '" “'’, '""OTHER"', Totals 15, 11, 
1815 Iu Од (5. 2])* 
1316 WRITELN (Diskfile); 
ИБ { Initialize O&MN and OPN totals } 
1318 OMN TOTAL := 0; 
1319} OPN TOTAL := 0; | 
1320 ( Compute the O&MN and OPN grand totals. } 
1321 FORTIK = 0 ГО) 
1922 Begin 
1323 OMN TOTAL := OMN TOTAL + Totals (K, 1]; 
1324 OPN_TOTAL := OPN_TOTAL + Totals [K, 2]; 
1325 End? 
1326 WRITELN (Diskfile, '" "', '"TOTALS:"', 
8327 CVNeTotal, ~~ "OPN Total) > 
1328 End 
1329 ELSE ° 
1330 Begin 
1954 (кжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжижжжжжж ) 
1532 ( Print the totals for the section just finished, then print } 
333 { the next section title and new headers. } 
1334 ОИУУ AEE REAR EERE AEE EEK EE EAE EEE | 
1335 WRITELN (Diskfile); 
1336 WRITELN (Diskfile, 111 lr. 1 11 oy н Мыс ы" шып ова аа 
1337 Subtotals [ОКО (mode), | .! MALUS ин uf ote E 
1338 Subtotals (ORD (mode), 2], '" "', 
1339 Subtotals {ORD (mode), 3]); 
1340 WRITELN (Diskfile); 
1341 WRITELN (Diskfile, ' d Section Titles ye 
1342 HEADERS; С 
1343 Епа; 
1344| End; { Procedure COMPUTE SECTION TOTALS } 
1345 
1346 
1347 


ПЕ *—*—* ck ok ok o kk ok ok Kk ok ok ok ok ok Ok ok ok ok ok ok ok Ck ok ok ck Ck Ck Fk ko Y Ck Y 
1349 
1350 END OF GLOBAL PROCEDURES 
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1851 

1352] -жж ж жк жк жк жк жжж жк ж Жо ж ж Жж жж жж ааа амы 
1355 

1354] PROCEDURE INITIALIZE; 


1355 

1356 

1357] PROCEDURE INIT TOTALS; f 
1358 | 
1359| Var 

1360 Row, Col : Integer; | 
1361 | 
1362 

1363| (кекжжжжжжжжжжжжжжжжжжжжжжижжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжижжжжжжжж ) 

1364| | Initialize the subtotals and totals for each section to zero. } 

1365 | (CR II О ОООО ОО ОКЖ] 

1366] Begin | 
1367 BOR Row = ОЕ TO 

1368 FOR Cor ЕЧ oS) 

1369 Begin | 

1370 Subtotals [Row, Col] := 0; 

1371 IF Col « 3 THEN Totals LRow, Со s= O, 

1372 Епа: 

1373| [Fkk k kk k жж ЖКК ЖЖЖ ЖЖЖ ЖЖЖЖ ЖЖЖЖ ЖЕК ЖЕК ЖЖЖЖ ЖЕКЕ ККЖ ЖЕКЕ ЖЕЕ | 

1374| ( Initialize the following global components ) | 
1375| {++ЖЖЖЖЖЖЖУЖЖЕЖЖ ЕК ЖЖЖЖ ЖЖ ЖЖ ЖЖ ЖК ЖЖ ЖЖ ЖЖ ЖЖ КЖЖЖЖ К КЖ ЖЖЖЖЖ ЖЖ ЖЖ КУ ЖЖЖЖЖЖЖЖЖХ } | 
т n]: { Global index counter } | 
1377| System Downtime Component :- 0; ” | 


1378| Mode :- Hard; | 
1379] BeepOnSS := False; Set to TRUE if sound is desired } 

1380| vtypeSS :- SET MONITOR TYPE; 2 = Color, 3 - Monochrome } 

1381| TextBackground (1); Initialize background color to BLUE } 

ПОГ С ЕС: Clear the input screen ] 

1383| ASSIGN (Screenfile, File3); 


adim ur ul ұрайық нн айбын 


1384} {$1I-} { User responsible for I/O error check } 
1385] RESET (Screenfile); 

1336) “(314 } { System will check for I/O errors } 
(397 | Епа; { Procedure INIT TOTALS } 

1388 

1389 

1390| PROCEDURE OPENING SCREEN; 

1391 

1392 { FEEEEREEEEEERELERER ERK GEE EEE OE Е e habct oe pK E ma hito Tal E ЖЕКЕ КТЕ Eitt E ha 

и! This procedure displays the opening screen to the user. } 

1394 { REFERER EE EEE EEE ER EER EEE EERE EEE EOE ae He ЕЕ Е Cit] 

1393 

1396| Begin (. Procedure OPENING SCREEN  } 

1397 ШТӘРГАУФӘСЕРЕН (5егеспігі ТЕ); (l Display Screen 

1398 DELAY (3500); 

1399| End; { Procedure OPENING SCREEN | 

1400 
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1401 
1402| PROCEDURE PICK A SITE; 
1403. 
1404| (OREO OOOO ROBO ЖЖЖЖЖЖЖЖ ЖЖ ЖЖ ЖЖЖЖ ЖЖ ЖЖ ЖЖ ЖЖЖЖЖЖЖЖЖЖЖЖЖЖХ | 
1405| { This procedure has four main functions. First, it determines the site to } 
1406| { be configured. Then it obtains the effective date for the delivery order.) 
1407| { It THEN obtains the file name for the output file from this session. And } 
1408; { finally, it builds the SITE.INFO array which contains site specIFic data } 
1409| { from the CONFIG.SIT file. } 
1410 ee ee ЕЕ EEE eR Eo rob o Foe eae ee ) 
1411 
1412] Var | 
1413 Datain : ВЕгапа [808 
1414 Siteno, Element : Integer; 
14151. Err, Temp Site : Integer; 
1416 Textin s Text; 
1417 
1418 
1419| PROCEDURE GET SITE NUMBER; 
1420 
1421| Begin ( Procedure GET SITE NUMBER ] 
1422 ( Initialize Variables To Default Values ) 
1423 Siteno <= |; 
1424 
1425 ИТЕ КТ ЕКЕЖЖ ККЕ КЗК ЕЖЕ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ R KOK J 
1426 ( Present the user with a list of the SPLICE sites by name and number.  ) 
1427 [ЖЖЖЖ К ОО КОО О К К К КККК О К ООЖ у 
1428 
1429 screen fieldSS := 1; 
1430 UHFSS :-2 1; 
1431 retrieveSS := FALSE; 
1432 last_fieldSS := FALSE; 
1433 DISPLAY SCREEN (Screenfile) ; { Display Screen } 
1434 
1435 REPEAT { until answerSS - 'Y' } 
1436 ( Display Items. Change retrieveSS to TRUE and INPUT items) 
1437 REPEAT { until actionSS = exitSs } 
1438 REPEAT 
1439 GETINT(69,24,2,'N',Siteno,'##',1,58,retSS, retrieveSS,14,1); 
1440 IF Siteno = 23 THEN 
1441 Begin 
1442 GOFOXYT (20; 25); 
1443 Color 15, 4): 
1444 WRITE (^G,' Site INACTIVE and not available for selection '); 
1445. Ends 
1446 UNTIL Siteno <> 23; 
1447 IF varSS = screen_fieldSS THEN last fieldSS := TRUE; 
1448 RET STAIUS; ( Check the code in "retSS". Set "varSS" and "actionss" } 


1449 
1450 





( Check to see whether to switch retrieveSS to true ) 


199 


1451 

1452 
1453 
1454 
1455 
1456 
1457 
1458 
1459 
1460 
1461 

1462 
1463 
1464 
1465 
1466 
1467 
1468 
1469 
1470 
1471 

1472 
1473 
1474 
1475 
1476 
1477 
1478 
1479 
1480 
1481 

1482 
1483 
1484 
1485 
1486 
1487 
1488 
1489 
1490 
1491 

1492 
1493 
1494 


t4271 


1496 
1497 
1498 
1499 
1500 
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IF last fieldSS and (not retrieveSS) THEN 
Begin 
retrieveSS :- TRUE; 
last fieldSS :- FALSE; 
actionSS := staySS; 
магӛз :- 1; 
End 
ELSE 
last fieldSS :- FALSE; 
UNTIL actionSS = exitSS; 
ACCEPT INPUTS; 
UNTIL answerSS - 'Y'; 


End; ( Procedure GET SITE NUMBER ] 


Begin’ 4 Procedure (PICK Sits 7} 


GET SITE NUMBER; 
ASSIGN (Textin, File2); 
RESET (Textin); 
( Initialize "Temp Site" and "Stock Point" } 
Temp Site :- 0; l 
Stock Paine r =n; 
WHILE Not EOF (Textin) AND (Temp Site « Siteno) DO 
(ЖЖЖЖ ОКЖ КАЖА ОООО ОО ЧО ОКЖ ООСО) 
( Read the file "CONFIG.SIT" until the site number in the file is } 
{ equal to the site number input by the user. } 
CGO GCC GCG IR: 
Begin 
READLN (Textin, Datain); 
Val (Copy (Datain, 1, 2), Temp Site , Err); 


{ Is site # from COSTS.IN = site # selected for configuration? | 
IF Siteno = Temp_Site THEN 
Begin | 
{ Builds the site information record } 
SiteInfo.siteno := siteno; 
SiteInfo.sitename := Copy (Datain, 3, 27); 
Val (Copy (Datain, 31, 1), SiteInfo.documentation, Err); 
Val (Copy (Datain, 33, 1), Sitelnfo таш ы 
SibeInfo.maint options := Copy (Datain, 35, 4); 
Sitelnfo.maint response := Copy (Datain, 40, 1); 
SiteInfo.site type := Copy (Парата, 432 ри: 
Val (Copy (Datain, 44, 6), SiteInfo.site inst cost, Errik 
End; 
End; 
Stock Point :s SiteInfo.site type; 
CLOSE S Test TO) 


End; (o Procedure PICK ATS TIEI, 
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1501} PROCEDURE BUILD COST TABLE; 
1 
така жж О AA ЖОООК I IO AA ) 
1504| ( This procedure's primary function is to build the COSTTABLE array. This } 
1505| ( contains the identlIFication data for each component from the COSTS.IN file} 
1506| ( as well as cost/maintenance data, which is updated by the applicable up- } 
1507| { lift or discount factors. The array currently contains room for 200 ) 
1508| ( entries. ) 
1509| (oletoekokokokokokok kokekokokekckokokolkokokokokor Ж ОА ООЖ ) 
1510 
1511; Var 
i512 Textin : Text; 
1513 Datain : String [80]; ( Data coming in from COSTS.IN file ) 
1514 Errorcode, Count : Integer; 
iD LCN Purch Esc Rate, LCN Momaint Esc Rate, Document Esc Rate : Real; 
1516 БиксшеЕзс Rate, Instal Esc Rate, Train Esc Rate : Real; 
1517 SPLICENet SW Maint Esc Rate, SPLICENet SW Purch Esc Rate : Real; 
1518 FDC SNA Purch Esc Rate, LCN SW Esc Rate : Real; 
1519 
1520| PROCEDURE GET RATES; 
1521| (еюкжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжажжж ) 
1522| ( This procedure serves three main functions: it obtains the name of the ) 
1523| ( current user, then obatins all the escalation/discount rates, and finally } 
1524; { several numbers of Maint Months, which are used for maintenance calculations. } 
1525 ( Жжжжжжжжж ож К ICICI GOOG ECG AGO a Ra ara kD 
1526 
1527} Var 
1528 Month Index : String [2]; 
1529 PRN Name, Effective Date : String [8]; 
1530 Index, Position : Integer; 
1531 
332 
1533| PROCEDURE INITIALIZE RATES; 
1534 
1535| (Initialize Variables To Default Values) 
1536 
1537| Begin { Procedure INITIALIZE RATES } 
1538 Е 
сз Burch bsc Rate :#+ 0.00; 
1540 ecn Eurch Esc Rate := 0.00; 
1541 SPLICENet_SW_Maint_Esc Rate := 0.00; 
1542 SPLICENet_SW Purch Esc Rate := 0.00; 
1543 Emerg Maint Rate :- 0.0; 
1544 FDC SNA Purch Esc Rate :- 0.00; 
1545 LCN Momaint Esc Rate :- 0.000; 
1546 LCN SW Esc Rate :- 0.000; 
1547 Enstal Esc Rate :- 0.000; 
1548| Train Esc Rate := 0.00; 
1549! Document Esc Rate :- 0.00; 
1550 Momaint Esc Rate :- 0.000; 
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1601 10: GETREAL (71 , 17,4,'N',Train_Esc Rate, 
1602 СИНА", 0.00 9. 99, retSS,retrieveSS,15,3); 
1603 Jae GETREAL(70, 18, 5,'N',Document Esc Rate, 
1604 ‘aH 8  ,-1.00,9.99, retSS, retrieveSS, 15,3); 
1605 12: GETREAL(70,19,5, N',Momaint Esc Rate, 
1606 ‘#.###',0.000,9.999,retSS, retrieveSS,15,3); 
1607 з: GETITEM(63, 21,8,'C',PRN NAME, 
1608 'UUUUUUUU ' , ' ' , š ,retSS, retrieveSS,15,3); | 
1609 14: GETINT(37,23,2,'N',Maint Months, | 
1610 'g' 0,12, retSS,retrievess, 15, 3)? | 
1611 15: GETITEM(67,23,8, D`, ,Effective Date, | 
1612 '88/88/88' ,'01/01/84' ,'12/31/99' , retSS, retrieveSS, 15,3); 
1613 End; . { CASE ) 
1614 
1615 IF varSS = screen_fieldSS THEN last fieldSS :- TRUE; 
1616 RET STATUS; ( Check code in "retSS". Set  '"varSS" & '"actionSS" } | 
1617 | 
1618 ( Check to see whether to switch retrieveSS to true ) 
1619 IF last_fieldSS AND (not retrieveSS) THEN 
1620 Begin 
1621 retrieveSS := TRUE; 
1622 last_fieldSS := FALSE; 
1523 actionSS := staySS; 
1624 аи. 
1625 End | | 
1626 ELSE | 
1627 last _fieldSS := FALSE; | 
1628 UNTIL actionSS = exitSS; | 
1629 ACCEPT INPUTS; 
1630 UNTIL answerSS = ‘Y ; 
1631] Епа; ( Procedure GET RATE INPUTS ] 
1632 
1633 | 
1634| Begin ( Procedure GET RATES ) 
1635 INITIALIZE RATES; 
1636 GET RATE INPUTS; 
1637 ( Generate the correct escalation & discount rates ] 
1638 FDC SNA Purch Esc Касе := FPDOSSNA Purch ЕБС баз 
1639 Purch | Esc | Rate :- 1 - Purch Esc Rate; 
1640 LCN Purch Esc Rate :- | - LCN Purch Esc Rate; 
1641 SPLICENet SW Maint Esc Rate :- SPLICENet SW Maint Esc Rate + 1; 
1642 SPLICENet | SW ' Purch | Esc | Rate :- SPLICENet SW Purch Esc Rate е 1; 
1643 Instar | Esc Касе = 1  Instal Esc Rate; 
1644 Document Esc Rate і- 1 « Document Esc Rate; 
1645 Momaint Esc Rate :- Momaint Esc Rate + 1; 
1646 Train Esc Rate := 1 + Train Esc Rate; 
1647 LCN Momaint Esc Rate :- | « LCN Momaint Esc Rate; 
1648 LCN SW Esc Rate :- 1 « LCN SW Esc Rate; 
1649 Emerg Maint Rate :- 1 + Bnerg Maint Rate; 
1650 { Generate the complete output file name, with LOTUS 1-2-3 "PRN" extension } 
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[552 
1955 
1554 
1555 
1556 
1557 
1558 
1559 
1560 
1561 
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1566 
1567 
1568 
1569 
1570 
1571 

1572 
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1574 
2575 
1576 
1577 
1578 
1579 
1580 
1581 

1582 
1583 
1584 
1505 
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1587 
1588 
1589 
1590 
1591 

1592 
1993 
1594 
1595 
1596 
1597 
1598 
1599 
1600 
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PRN Name :- 'SPLICE'; 
Maint Months :- 0; 
Effective Date :- '09/01/85'; 


End; ( Procedure INITIALIZE RATES ) 


PROCEDURE GET RATE INPUTS; 


Begin (| Procedure GET RATE INPUTS ) 


screen fieldSS := 15; 
varosom: =i; 
retrieveSS := FALSE; 
last fieldSS :- FALSE; 
DISPLAY SCREEN (Screenfile); ( Display Screen ) 
( If the site selected is a MAP site, blank out the fields related to 
HYPERchannel (LCN) escalation and discount rates. } 
IESSEock Poinb <> 5 THEN 
Begin 
COLOR (1,1); 
GOTOXY (70711); 
WRITE (' ') 
СОТОХУ 70; 157); 
WRITE (' E) 
End; 


° 
, 


е 
? 


REPEAT ( until answerSS = 'Ү' } 


( Display Items. Change retrieveSS to TRUE and INPUT items) 
REPEAT { until actionSS = exitss } 
CASE varSS of 
1: GETREAL(71,8,4,'N',FDC SNA Purch Esc Rate, 
"# ##',0.00,9.99,retSS, retrieveSS,15,3); 
2: GEIREAL(71,9,4,'N',Purch Esc Rate, 
' 4. 88' ,0.00,9.99,retSS,retrieveSS,15,3); 
3; ТЕ Stock point = 5 THEN 
GETREAL(71,10,4,'N',LCN Purch Esc Rate, 
'#.##',0.00,9.99,retSS, retrieveSS,15,3); 
4: СЕТВЕАП( 71, 11, qo UN. ,SPLICENet SW Maint Esc Rate, 
Hote 0200, 9. 99, retSs, retrievess, 157 3); 
Ss GETREAL(71, Там ,SPLICENet SW Purch | Esc Rate, 
Cheah О. 00, 9. 99, retSS,retrieveSS,15,3); 
6: GEIREAL(72, ES cM ,Emerg Maint Rate, 
но. 9, retss, retrieveSS,15,3); 
Е Stock Point = УБИ ТИЕН 
GETREAL(70,14,5,'N',LCN Momaint Esc Rate, 
'#.###' ,0.000,9.999,retSS, retrieveSS,15,3); 
В: IF Stock Point = 'S' THEN 
GETREAL(70,15,5,'N',LCN SW Esc Rate, 
'#. ###',0.000,9.999,retSS, retrieveSS,15,3); 
9: GEIREAL(70,16,5,'N',Instal Esc Rate, 
'#.###',0.000,9.999,retSS, retrieveSS,15,3); 
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PRN File Name := CONCAT (PRN Name, '.PRN'); 

Day := Copy (Effective Date, 4, 2); 

Month_Index := Copy (Effective Date, 1, 2); 

Val (Month Index, Index, Errorcode); 

Month :- Month Name [Index]; 

( Strip trailing blanks off the name of the month } 
Position := POS (' ', Month); 

IF Position <> Q THEN Month := Copy (Month, 1, Position - 1); 
Year := Copy (Effective Date, 7, 2); 

Year := CONCAT ('19', Year); 


End: { Procedure GET RATES | 


Begin ( Procedure BUILD COST TABLE ) 


ASSIGN (Textin, Filel); 
RESET (Textin); 
С©уна = 15 
GET RATES; (ask user for all discount and escalation rates to be used ) 
CIESCES 
СОСОК СТЕ): 
GOTOXY (16, 13); 
WRITE ('Constructing cost escalation and discount table.'); 
READLN (Textin, Datain); 
WHILE Not EOF (TEXTIN) DO 
Begin 
( Build the Costtable array } 
Costtable [Count]. foeatureno: := Сору (баса 6.065 
Costtable {Count).clin := Copy (Datain, 1, 4); 
Costtable ([(Count].descript := Сору (Datain, 13, 27); 
Val (Copy (Datain, 40, 10), Costtable [Count].momaint, Errorcode); 
Costtable [Count].basemaint := Costtable [Count].momaint; 


{ LCN H/W Base Maintenance } 
IF (Costtable [Count].featureno » '320100') AND 
(Costtable [Count].featureno « '420400') THEN 
Costtable [Count].basemaint :a Costtable [Count].rmomaint 
* LCN Momaint Esc Rate 


( LCN S/W Base Maintenance } 


'551301') THEN 
Costtable [Count] .monaint 
* LCN SW Esc Rate 


(Costtable [Count]. featureno 
Costtable [Count ].basemaint : 


ELSE IF (Costtable [Count].featureno = '550801') OR 
(Costtable [Count].featureno + "550901") ОВ 
(Costtable [(Count].featureno » '551001') OR 
(Costtable (Count].featureno = '551101') OR 
(Costtable (Count].featureno = '551201') OR 


(SPLICENet S/W Base Maintenance) 
ELSE IF (Costtable [Count].featureno s '550710*) OR 
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1701 
1702 
1703 
1704 
ШОБ 
1706 
1707 
1708 
1709 
1710 
711 
1712 
4713 
1714 
1715 
7 16 
NI 7 
1718 
ШШ 19 
1720 
1721 
i22 
23 
1724 
725 
1726 
11727 
1728 
1729 
1730 
1731 
1732 
15593 
1734 
8-5 
1736 
1737 
1738 
1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
1747 
1748 
1749 
1750 
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(Costtable 
(Costtable 
(Costtable 
(Costtable 
(Costtable 
(Costtable 
(Costtable 
(Costtable 
(Costtable 
(Costtable 
(Costtable 
(Costtable 
(Costtable 
(Costtable 


Costtable [Count].basemaint : 
* SPLICENet SW Maint Esc Rate 


[Count] . featureno 
[Count]. featureno 
{Count ] . featureno 
{Count} .featureno 
[Count] . featureno 
{Count ]. featureno 
[Count]. featureno 
[Count]. featureno 
{Count ].featureno 
[Count]. featureno 
{Count ].featureno 
{Count ]. featureno 
(Count). featureno 
[Count] . featureno 


{ Normal Maintenance Escalation } 


W H UW UH H H H Hn H H H H H H MW 


1550711") 
1550803") 
1550903") 
1551003") 
1551103") 
"551203") 
'551303') 
'551304') 
'551403') 
'551500') 
1551501") 
2551502") 
1551503!) 
1551504") 
Costtable 
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OR 
OR 
OR 
OR 
OR 
OR 
OR 
OR 
OR 
OR 
OR 
OR 
OR 
THEN 
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[ Count ] .momaint 


ELSE Costtable [Count].momaint := Costtable (Count].momaint 


* Momaint Esc Rate; 


( 6100 H/W Purchase Escalation } 


{ 6100 S/W Purchase Escalation } 


(Costtable 


ELSE IF (Costtable [Count]. featureno 


{Count ]. featureno 


Costtable [Count].purchprice 


{SPLICENet S/W Base Maintenance} 
[Count ].featureno = 


ELSE IF (Costtable 


(Costtable 
(Costtable 
(Costtable 
(Costtable 
(Costtable 
(Costtable 
(Costtable 
(Costtable 
(Costtable 
(Costtable 
(Costtable 
(Costtable 
(Costtable 
(Costtable 


Costtable [Count].basemaint : 
* SPLICENet SW Purch Esc Rate 


[Count]. featureno 
(Count ] . featureno 
[Count]. featureno 
[Count]. featureno 
[Count]. featureno 
[Count ].featureno 
[Count]. featureno 
[Count]. featureno 
[Count]. featureno 
[Count] . featureno 
{Count ]. featureno 
[Count]. featureno 
[Count]. featureno 
[Count]. featureno 
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> 
< 


Hl onu n n H H 


= 
-- 
= 
-- 
-- 
= 
— 


'450300') AND 
'450400') TIEN 
>= Costtable [Count]. purchprice 


265001) 
25590710") 


AND 
THEN 


Val (Copy (Datain, 50, 11), Costtable [Count].purchprice, Errorcode); 
IF (Costtable [Count].featureno » 
(Costtable [Count].featureno < 
Costtable [Count].purchprice 


= Costtable [Count].purchprice 


'550710') 
'550711') 
'550803') 
1550903") 
551003") 
1551103") 
1551203") 
"551303") 
1551304") 
1551403") 
1551500") 
' 551501 ' ) 
1551502") 
551503") 
551504") 


OR 
OR 
OR 
OR 
OR 
OR 
OR 
OR 
OR 
OR 
OR 
OR 
OR 
OR 
THEN 


Costtable [Count ].imomaint 
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1752 
1753 
1754 
1255 
1756 
1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 
1765 
1766 
1767 
1768 
1769 
1770 
1771 
1772 
1773 
1774 
P175 
1776 
1779 
1778 
1779 
1780 
1781 
17872 
1783 
1784 
1755 
1786 
1787 
1788 
1289 
1790 
179] 
1792 
1752 
1794 
1795 
1796 
1727 
1798 
1799 
1800 
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( Training Escalation ) 

ELSE IF (Costtable [Count].featureno 
(Costtable [Count].featureno 
Costtable [Count].purchprice 


"39XXXX") -or 

'XXXXXX') THEN 

Costtable [Count].purchprice 
* Train Esc Rate 


{ LCN H/W Purchase Escalation ) 
ELSE IF (Costtable (Count].featureno » '320100') AND 
(Costtable (Count].featureno « '420400') THEN 
Costtable [Count].purchprice :- Costtable [Count].purchprice 
* LCN Purch Esc Rate Е 


{FDC SNA Purchase Escalation } 
ELSE IF (Costtable (Count].featureno = '550710') THEN 
Costtable [Count].purchprice := Costtable [Count] .purchprice 
* FDC SNA Purch Ese Rate 


{ LCN S/W Purchase Escalation } 
ELSE IF (Costtable (Count].featureno = '550801') OR 


(Costtable (Count].featureno - '550901') OR 
(Costtable (Count].featureno - '551001') OR 
(Costtable (Count].featureno s '551101') OR 
(Costtable [(Count].featureno = '551201'} ОВ 


(Costtable [Count].featureno - '551301') THEN 
Costtable [Count].purchprice := Costtable [Count].purchprice 
* LCN SW Esc Rate 


{ Documentation Purchase Escalation } 
ELSE IF (Costtable (Count].featureno » '710000') AND 
(Costtable [Count].featureno « '749999') THEN 
Costtable [Coünt].purchprice := Costtable [Count].purchprice 
* Document Esc Rate 


{ Site Preparation Installation Escalation } 
ELSE IF Costtable [Count].featureno = '000101' THEN 
Costtable [Count].purchprice := SiteInfo.site_inst_ cost 
* Instal Esc Rate 


{ Normal S/W Purchase Escalation } 
ELSE Costtable (Count].purchprice := Costtable [Count].purchprice 
* Purch Esc Rate; 


{ Installation Cost Escalation } 
Val (Copy (Datain, 62, 10), Costtable [Count].instcost, Errorcode); 
IF (Costtable [Count].featureno » '450300') AND 
(Costtable [Count].featureno « '450400') TIEN 
Costtable (Count].instcost := Costtable (Count].instcost 
ELSE IF (Costtable [Count].featureno » '550701') AND 
(Costtable [Count].featureno « '550800') THEN 
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1801 Costtable [Count].instcost :- Costtable [Count].instcost 
1802 ELSE Costtable [Count].instcost := Costtable [Count].instcost 
1803 * Instal Esc Rate; 
1804 
1805 
1806 READLN (Textin, Datain); 
1807 Coumt s= Count + 1; 
1808 End; 
1809 CLOSE (Textin); 
1810| End;  ( Procedure BUILD COST TABLE } 
1811 
1812 
1813| PROCEDURE DELIVERY ORDER TITLE; 
1814 
1. (ЖЖЖ жжжжж ЖЖЖ ЖЖЖЖ ЖЖЖ ЖЖЖ ЖЖЖ ЖКЖ ЖЖ Ж ЖЖК ЖЖЖ ЖЖЖ ЖКЖ ЖЖЖ ЖЕЖ ЖЖЖЖжкжжжж ) 
1816| { This procedure generates the title page data and first headers to be ) 
1817| ( by the "Hardware" section. The data is written out to the diskfile ) 
18181 { specIFied by the user when prompted for an ouput file Name. } 
1819| pE o o oo o жж ж жж жож ж жож Жж ЖЖЖЖ ЖЖЖЖ ЖЖЖЖ ЖЖЖЖ ЖЖ ЖЖЖ ЖЖЖ Е ЖЖЖЖЖЖЖУ ТЖ | 
1820 | 
1821; Begin ( Procedure DELIVERY ORDER TITLE } 
1822 ASSIGN (Diskfile, PRN File Name); 
1823 REWRITE (Diskfile); 
1824 WRITELN (Diskfile, н Я ги T ги ша ЕН ү 
1825 ""Naval Supply Systems Command SPLICE Delivery Order"'); 
1826 WRITELN (Diskfile); 
1827 WRITELN (Diskfile); 
1828 AMEEN Diskfile, Site: "', '"'. Siteinfo.siteno:2, '"', '"', 
1829 Siteintossitename,  ‘,; TM pT m 
1830 ' "CONTRACT N66032- 84 а= 0002"', 1. n tt 101 ott es ore ne 
1831 "Effective Date: ', Day:2, Monel: ОЕ ан, т a vente DET NE 
1832 WRITELN (Diskfile, P"! m pn s vst н pat es ЕТ iuro vit ee Order"''); 
1833 WRITELN (Diskfile); : 
1834 WRITELN (Diskfile, ''"Hardware"'); 
1835 HEADERS; 
1836| End; { Procedure DELIVERY ORDER TITLE } 
1837 
1838 
1839| Begin { Procedure INITIALIZE } 
1840 INIT TOTALS; 
1841 OPENING SCREEN; 
1842 БЕЕК А SITE; 
1843 BUILD COST ' TABLE; 
1844 DELIVERY ORDER TTE 
1845 7 Е 
1846 | Епа; ( Procedure INITIALIZE ) 
1847| ($1 SPLICE2.PAS) { Name of work procedures include file } 
18481 PROCEDURE CONFIGURE COMPONENTS; 
1849I 
18501 Var 
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15511 ( Input Variables Used For Documentation, Training & Maintenance ) 
19521 Computer Ops, Hardware Manual, Programmer Ref : Inteqer; . 
15521 Sys Programmer, Training Group, Data Communication : Integer; 
18541 Hardware Overview, Operator Training, Sys Resource : Integer; 
16551 SPLICENet Workshop, Sys Tuning Xray, TAL, Per Call Months : Integer; 
1856I 
15571 
1858I PROCEDURE CONFIGURE HARDWARE; 
18591 
1860I Var 
1861I Cable Distance : String [1]; 
18621 Add Expansion, Add HYPERchannel, Add Patchpanel, Add System Integer; 
1863I AsyncCtrl, AsyncExtbd, AsyncPchpnl, A510, Bitsync, Bytesync : Integer; 
1864I Crts, D128MB, D240MB, D540MB, ExpanCab : Integer; 
1865I HYPERCab, LPM1000, LPM600, PatchPanel, Printers, RdrPunch : Integer; 
1866I SysCab, TapeDrv, Trunks : Integer; 
18671 
18681 
18691 PROCEDURE INITIALIZE HARDWARE INPUTS; 
1870I 
1871I Begin { Procedure INITIALIZE HARDWARE INPUTS } 
1872T { Initialize Variables To Default Values } 
18731 Add Expansion :- 0; Í 
1874I Add HYPERchannel :- 0; 
18751 Add Patchpanel :- 0; 
18761 Add_System := 0; 
TO AsyncCtrl := 0; 
18781 AsyncExtbd := 0; 
1879I AXXX 0; 
1880I ААО 205; 
1881I АО 2=20; 
18821 оО: 
1883I ASOD- 22.04 
1884I О: 
18851 Bivoyne С=О; 
1886I ByteSyne = 0; 
1887I Cable Distance :- 'B'; 
1888I Cardhdr = 0 
18891 Crts :- 0; 
1890I D128MB 22:07 
15911 D240MB $50: 
1892I D540MB- :- 0; 
1893I HYPERcab :- 0; 
1894I БТ = 0; 
13951 LPM1000 := 0; 
18961 ЬРМ6ОО К = 0; 
18971 Processors := 0; 
18981 Printers := 0; 
18991 Багбшисп := 0: 
1900I TapeDrv := 0; 
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1901I THYPERchannels :- 0; 
ISD2T Trunks += 0% 
1903I End; ( Procedure INITIALIZE HARDWARE INPUTS ] 
1904I 
19051 PROCEDURE ODD ERROR; 
19061 
1907I Begin { Procedure ODD_ERROR } 
19081 COLOR (15, 4); 
12691 GOTOXY (1609925); 
1910I WRITE (^G, ' Number of disks must be 0 or an EVEN number! '); 
1911I End; ( Procedure ODD ERROR ) 
19121 
19131 
19141 PROCEDURE CLEAR MESSAGE; 
Holst 
19161 Begin { Procedure CLEAR_MESSAGE } 
ШМІ?І TextBackground (1); 
1918I GOTOXY (1, 25); 
1 OT СТЕРЕО 
ESZUT End; { Procedure CLEAR MESSAGE } 
19211 | 
221 
19231 PROCEDURE GET HARDWARE INPUTS; 
1924I 
19251 Begin ( Procedure GET HARDWARE INPUTS ] 
19261 screen fieldSS :- 25; 
1027І varos - 1. ° 
T9281 retrieveSS := False; 
e291 last fieldSS :- False; 
12301 DISPLAY SCREEN (Screenfile); { Display Screen } 
19311 
19321 REPEAT (until answerSS = 'Y' } 
331 { Display Items. Change retrieveSS to True and INPUT items} 
19341 REPEAT { until actionSS = exitSs } 
TOSSI CASE varSS of 
1936I 1: GETINT(40,4,3, 'N', Processors, ' /////' ,0,256,retSS,retrieveSS,14,1); 
1937I ви ен Printers; 704 ,0,12,retSS,retrieveSS, 14,1); 
1938I BeceLint(4076,3- 11) Стрес 4845 70,999. retSS,retrieveSS,14,1); 
1939I 4: REPEAT 
19401 GETINT(40,7,3,'N',D128MB,'' ###',0,128,retSS, retrieveSS,14,1); 
19411 IF ODD (D128MB) THEN ODD ERROR 
19421 ELSE CLEAR MESSAGE; 
1943I UNTIL not ODD (D128MB); 
19441 9: БЕРБАТ 
1945I GETINT(40,8,3, ''N' ,D240MB, ' /4//' ,0,128,retSS, retrieveSS, 14,1); 
1946I IF ODD (D240MB) THEN ODD ERROR 
19471 ELSE CLEAR MESSAGE; 
1948I UNTIL not ODD (D240MB); 
1949I 6: REPEAT 
19501 GETINT(40,9,3, 'N' ,D540MB, ' 4/4! ,0,128, retSS, retrieveSS,14,1); 
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19511 
19521 
19531 
1954I 
19551 
19561 
ШЕ ЕДІ 
19501 
t3521 
19601 
T9611 
19621 
19631 
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19651 
19661 
19671 
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1969T 
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19711 
19721 
19931 
19741 
12751 
19761 
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19821 
19831 
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1986I 
19871 
1988I 
19591 
19901 
19911 
19921 
19931 
19941 
1995F 
19961 
19971 
19981 
19991 
2000I 
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IF ODD (D540MB) THEN ODD ERROR 
ELSE CLEAR MESSAGE; 
UNTIL not ODD (D540MB); 
7: GETINT(40,10,3,'N’ ,AsyncCtrl, '###' ,0,64,retSS,retrieveSS, 14,1); 
: GETINT(40,11,3,'N' ,AAsyncExthd, '###',0,2,retSS, retrieveSsS, 14, 1), 
9: GETINT(40,12,3, 'N',BitSync, '###' ,0,128,retSS,retrieveos, 14 
10: GETINT(40,13,3,'N' ,ByteSync, '###°,0,128,retSS, retrievesS, 14, ie 
11: GETINT(40,14,3,'N',TapeDrv, '###',0,128,retSS,retrieveSS, 14,1); 
12: GETINT(40,15,3,'N’ ,RdrPunch, '###',0,12,retSS, retrievess, (4m 
13: GETINT(40,16,3,'N' ,CardRdr,'###',0,12,retSS,retrieveSs, 14,1); 
14: GETINT(40,17,3,'N',LPM1000, '###' ,0,16,retSS, retrieveSS,14,1); 
15: GETINT(40,18,3,'N',LPM600, '###',0,16,retSS,retrieveSS,14,1); 
16: IF Stock Point =" °S = THEN 
GETINT(40,19,3, 'N' , Trunks, '###' ,0,2,retSS, retrieveSS,14,1); 
17: GETINT(40,20,3,'N' ,LIU, ‘ ###' ,0,256,retSS, retrieveSs, Amie 
18: IF Stock Point = 'S' THEN 
GETINT(73,3,3, N',A400, ###' ,0,256,retSS,retrieveSS,14,1); 
19: IF Stock Point s 'S' THEN 
GETINT(73,4,3,'N‘,A150, '###' ,0,256,retSS, retrieveSS, 14,1); 
20: SIP Steck Point = S PIE 
GETINT(73,5,3, N‘’,AXXX, ###' ,0,256,retSS ,retrievesSs, и 
2\ 2 TEE Stock por ts Е ШЕЕ 
GETINT(73,6,3,'N',A220,'###',0,256,retSS, retrieveSS,14,1); 
22:0 IF Stock Points БОТИ | 
GETINT(73,7,3, 'N' ,A140, ' 4ii' ,0,256, retSS,retrieveSS,; 147195 
2): IR ЕЕ Зы 
° СЕТІМТ(73,8,3, М!,А510, 988" ,0,256,геЕ55,гейгіеуе55,14 |) 
24: IF Stock Point - 'S' THEN 
GETINT(73,9,3,'N', THYPERChannels, 
‘RAR 0,128, retsS, retrievess 14,10); 
25: IF Stock Point = 'S' THEN 
REPEAT 
GETITEM(75,20,1,'C',Cable Distance, 
up '' c retsSS,retrievessS яки 
IF (Cable Distance « 'A') OR (Cable Distance › 'F') THEN 
Begin 
COLOR (15, 4); 
GOVOKY 28.1251: 
WRITE (^G, ' Not within range A to F '); 
End 
ELSE CLEAR MESSAGE; 
UNTIL (Cable Distance »- 'A') AND (Cable Distance «- 'F'); 
End; { CASE } 


IF varSS = screen fieldSS THEN last fieldSS :- True; 
RET STATUS; { Check code in "retSS". Set  ""varSS" and "actionSS" } 


( Check to see whether to switch retrieveSS to true } 
IF last fieldSS AND (not retrieveSS) THEN 
Begin 
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20011 retrieveSS := True; 
20021 last fieldSS :- False; 
2003I actionSS := staySS; 
20041 varSS := 1; 
20051 End 
2006I ELSE 
2007I last fieldSS :- False; 
2008I UNTIL actionSS = exitSS; 
20091 ACCEPT INPUTS; 
2010I UNTIL answerSS = 'Y'; 
20111 End; ( Procedure GET HARDWARE INPUTS ] 
20121 
ШІ ЗІ 
20141 PROCEDURE ADDITIONAL CABINETS; 
20151 
20161 Begin { Procedure ADDITIONAL CABINETS ) 
20171 screen fieldSS :- 3; 
2018I varSS := 1; 
20191 retrieveSS := False; 
20201 last fieldSS :- False; 
20211 DISPLAY SCREEN (Screenfile); { Display Screen } 
(0221 
20231 GETINT(40,4,3,'N',Processors, '###',0,256,retSS,False,14,1); 
20241 СЕДИ 40 5 3, N’,Printers, '###' ,0,12,retSS,False,14,1); 
2025I GETINT(40,6,3, N',Crts, '###',0,999,retSS,False,14,1); 
20261 GETINT(40,7,3,'N',D128MB, ‘###' ,0,128,retSS,False,14,1); 
20271 GETINT(40,8,3,'N',D240MB, '###',0,128,retSS,False,14,1)}; 
20281 GETINT(40,9,3,'N',DS40MB, '###',0,128,retSS,False,14,1); 
20291 GETINT(40,10,3,'N',AsyncCtrl, '###',0,64,retSS,False,14,1); 
20301 GETINT(40,11,3, N',AsyncExthd, '###' ,0,2,retSS,False,14,1); 
20311 GETINT(40,12,3,'N',BitSync, '###',0,128,retSS,False,14,1); 
20321 GETINT(40,13,3,'N',ByteSync,'###',0,128,retSS,False,14,1); 
20331 GETINT(40,14,3, N',TapeDrv, '###',0,128,retSS,False,14,1); 
20341 GETINT(40,15,3,'N',RdrPunch, '###',0,12,retSS,False,14,1); 
20351 GETINT(40,16,3, N',CardRdr, '/44' ,0,12,retSS,False,14,1); 
2036I GETINT(40,17,3,'N',LPM1000, '###',0,16,retSS,False,14,1); 
20371 GETINT(40,18,3, 'N' , LPM600, ‘###',0,16,retSS,False, 14,1); 
EUSST IE Stock Point = 'S' THEN 
2039I ЕЮ ЦАО drunks 434 ' 0 2 retsS,False,14,1): 
2040I GETINT(40,20,3,'N', LIU, '###',0,256,retSS,False,14,1); 
20411 ТЕ Stock Point - 'S' THEN 
20421 Begin 
20431 GETINT(73,3,3,'N',A400,'###',0,256,retSS,False,14,1); 
20441 СЕРП (ЛЗ НО, В 0: 2506 геёб5 Ва!зе, 14.1); 
20451 ЗБ, NM UU HIUPTO 256 retSS,False,14,1); 
2046I СЕТИ ИЗ 619. N' A220. 444' ,0,256, retSS,False,14,1); 
2047I Comins 7, о, enNl40, Hits 0-256, retSS,False,14,1)- 
20481 GETIND73,8,3, N ,A510, ###',0,256,retSS,False,14,1); 
20491 GETINT(73,9,3,'N', THYPERchannels, '###',0,128,retSS,False,14,1); 
20501 ВЕТЕР гони, С ,Cable Distance, U','",'',retSS,False,14,1); 
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2511 Епа; 

20521 GETINT(68,13,2,'N',PatchPanel, '##',0,16,retSS,False,14,1); 

20531 GETINT(68,14,2,'N',SysCab, '##',0,16,retSS,False,14,1); 

20541 GETINT(68,15,2, 'N' ,ExpanCab, '##',0,16,retSS,False, 1471) 

20557 

20561 REPEAT ( until answerSS - 'Y' ) 

20571 ( Display Items. Change retrieveSS to True and INPUT items) 

2058I REPEAT í until actionSS - ех оси 

2059I CASE varSS of | 


20601 1: GETINT(75,13,2,'N' ,Add PatchPanel, 

20611 '##',0,8,retSS, retrieveSS,14,1); 

20621 2: GETINT(75,14,2,'N',Add System, 

2063I '##',0,8,retSS, retrieveSS,14,1); 

20641 3; .GETINT(/5,15,2, N ,Add! Expansion, 

20651 '##' ,0,8,retSS,retrieveSS,14,1); 

20661 End; { CASE) : 

2067I 

2068I IF varSS - screen fieldSS THEN last fieldSS :- True; 
2069I RET STATUS; { Check the code in "retSS". Set "“'varSS" and "actionSs" } 
2070I 

20711 ( Check to see whether to switch retrieveSS to true ) 
20721 IF last fieldSS AND (not retrieveSS) THEN 

20731 Beqin 

20741 retrieveSS := True; 

20751 last fieldSS := False; 

20761 actionSS :z staySS; 

20771 varo 2- 1; 3 | 
2078I End 

2079I ELSE 

2080I last fieldSS :- False; 


2081I UNTIL actionss s exitos; 

20821I ACCEPT INPUTS; 

20831 UNTIL answerSS - 'Y'; 

20841 End; { Procedure ADDITIONAL CABINETS } 

20851 

20861 

20871 PROCEDURE PRINT HW; 

2088Т {ЖЖЖЖЖЖжЖжжжжжжжжжжжжЖЖЖЖЖЖ ЖЖ ЖЖ ЖЖЖЖЖЖЖ ЖЖ ЖЖ ЖЖЖЖ ЖЖ ЖЖЖЖЖЖЖ ЖЖЖ ЖЖ ЖЖЖЖЖЖЯ ЖЖЖЖЖЖЖЖЖХ | 
20891 { This routine is used in the hardware generation process to set up the } 
20901 Í necessary parameters to be used by PRINT HW when called. ) 
2091I ( tee oroke xokeeoorexororoke xoleeoooeoke ooo oe eeeeorobe9obeberpobkb ope ope ooo ELLE ҮШҮҮ ҮСЕ 
2092I 

20931 Begin { PROCEDURE PRINT HW } 

20941 Maint Factor :- Momaint Esc Rate; 

2095I Extended Price := Quantity * CostTable[I].purchpryce; 

20961 LINE SETUP; 


2097I (CAG SOG GG Koo rio too ari) 

20981 { Compute System Downtime Credit Component Factor r month } 
p 

2099I (ЖЖЖЖ ЖЖЖЖ КККК ЗЫК КККК ЖКА К В. 


21001 System Downtime Component :- System Downtime Component + 


2122 
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ZIOTI (Quantity * CostTable[I].basemaint 
21021 Haint Factor); 
2]031 { ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ ЖЖЖЖЖ ЖЖ ЖЖ ЖЖЖЖЖЖ ЖЖ ЖЖ ЖЖ ЖЖЖ ЖЖЖЖЖЖЖЖЖЖЖХ | 
2104I ( Compute the Component Downtime Credit Factor per hour ] 
2105I [ ЖЖЖЖЖЖЖЖЖЖЖ ЖЖ ЖЖЖЖЖ ЖЖ ЖЖ Ж ЖЖ ЖЖЖЖЖЖЖЖЖ ЖЖ ЖЖЖЖ ЖЖЖЖЖ ЖЖЖЖЖЖЖХ | 
2106Т Downtime Credit :- (((CostTable[I].purchprice + CostTable{I].instcost) / 48) 
21071 * (CostTable[I].basemaint * Maint factor)) * 0.005; 
2108I WRITELN (Diskfile, '"', Line Number:7, '" "', CostTable(I].featureno:8, 
2109I ILL ONNSsEP3DIeIMIIRdescrIDU:28, ° , Ouantity:3, 
21101 CostTable[I].purchprice:13:2, Extended Price:12:2, 
ZEIT CostTable[I].basemaint:9:2, Maint Factor:8:3, Maint Months:5, 
ВЕТ Quantity * CostTable[I].basemaint * Maint Factor 
ГІЗІ * Maint Months:12:2, CostTable[I].instcost:8:2, 
2114I CostTable[I].instcost * Quantity:9:2, Downtime Credit:9:2, 
21151 (Quantity * CostTable[I].basemaint * Maint Factor):9:2); 
2116I End; ( Procedure PRINT HW ] 
21171 
21181 
2119I PROCEDURE CONFIGURE PROCESSING SUBSYSTEM; 
21201 
21211 Var 
2271 OSP : Integer; 
Zio 1 
21241 
2125I PROCEDURE COMPUTE PROCESSORS; 
21261 o———————————————————————À9 
2127I This procedure outputs a series of screens prompting the user to pro- } 
21281 vide the necessary inputs required to generate the processor related } 
21291 data for the desired configuration. Each input is checked to detemnine | 
21301 whether OR not the response is positive OR within the necessary limits. } 
QV ZV L {RR FR К ККК ОКК ККК КККК ror a } 
21321 
ZISSI Begin { Procedure COMPUTE PROCESSORS } 
21341 Quantity := Processors; 
РТ Ш ттт; ( I=2 Processors on delivery order ) 
ZISOI mM Cuantity > O THEN PRINT HW; 
2]1537I ше: 1 + 1; ( I-3 Uses # of Processors to determine 
(981 # extra 2MB memory modules to order |] 
21391 IF Quantity » 0 THEN PRINT HW; 
2140I IF (SiteInfo.siteno = 2) OR (SiteInfo.siteno = 3) THEN 
21411 Begin 
21421 ПТ. { 1=4 Floating Point Arithmetic, 
21431 only ordered by FMSO sites } 
21441 IF Quantity > 0 THEN PRINT Hw; 
21451 End 
21461 ELSE I := I « 1; 
21471 { The following routine determines the number of OSPs to order. } 
21481 { One OSP is required per 16 Processors. } 
21491 MES T1; { 1=5 OSP } 
21501 OSP := Processors; 
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Zio WHILE OSP MOD 16 > 0 DO 
ТЕДІ OSP := OSP + 1; 
21551 Quantity := OSP DIV 5; 
2154I IF Quantity » O THEN PRINT HW; 
21 551. Епа“ { Procedure COMPUTE PROCESSORS } 
21561 
21571 
21581 PROCEDURE COMPUTE CRES PIRS; 


21591 
21601 
21611 
21621 
210691 
21641 
21651 
2166I 
21671 
21681 
21691 
21701 
21711 
21721 
ЛӘП 
2174I 
21751 
21761 
217721 
21781 
21 ват 
21601 
218 
21621 
21931 
2184I 
21851 
21861 
21571 
2188I 
21891 
21901 
2111 
21921 
219.1 
2194I 
21951 
ОСЫ 
21971 
21991 
21991 
22001 


[Жжжж ok oR О О О ОК О ОА ОК О ОООО О О О ОЖЖ] 


This routine computes the number of Centronics Printers, CRTs and OSP ] 
interfaces required on the delivery order. } 


(ККЗ He AEA A HA AEA A He AEA AE AE A AE A HE A A RO eR ЖЖ ж ee 


Begin {Procedeure COMPUTE_CRTS PTRS } 


Quantity := Printers; 

[ss I + 1; { I=6 Serial Printers } 

IF Quantity » O TIEN PRINT IW; 

Quantity := Crts; 

PS же ШЕЛ Өкіссай 

IF Quantity ^» 0 THEN PRINT HW; 

Quantity 55 OSPSDIV OUS 

з= ы ( I8 Printer Interfaces for OSPs ) 
IF Quantity > O0 THEN PRINT HW; 


End; ( Procedure COMPUTE CRTS PTRS ) 


PROCEDURE COMPUTE CABINETS; 
{ ЖЖЖЖЖЖЖЖ ЖЖЖЖ ЖЖ ЖЖЖЖЖЖЖ ЖЖ ЖЖЖЖЖ ЖЖЖЖЖЖ ЖЖ К ЖЖ ЖЖ ЖЖ ЖЖ ЖЖЖЖЖЖЖ ЖЖЖЖЖ ЖЖЖЖЖЖЖЖЖККХ } 


The following routine estimates the number of Patch Panel Cabinets } 
and permits the user to increase this for reserve/expansion. ) 


(ӘЖК ЖЖЖ ЖЖЖ ЖАР ЕЕ СК ooo ook ooo eoe coe xo 6G ККК ЕЕЕ ЖК КЕЕ КЕКЕ КЖЕ Е ЕКЕ ЧОЛ 


Contigl6, Slots, Temp: : Integer; 


Begin { Procedure COMPUTE CABINETS. } 


Temp := "Processors, 
[EEO o o oo ЖЖЖ ЖЖ Ж ЖЕ Ж АЕ ЖЕЖ Ж ЖЖЖ ЖЕЖ Ж ek a k k ЖЖЖЖ ] 


{ Sufficient system cabinets to house the number of Processors? } 
[ ТЕЖЖЖЖЕЕЖЕ ЖЖ ЕЖЕ ЖЖ ЕЕК ЕЖЕ ЕЕК ЕЕ ЕЕ М танк LLL 
WHILE (Temp MOD 4) > O0 DO 
Temp := Temp + 1; 

SysCab := Temp DIV 4; 
IF (Processors > 0) AND (SysCab < 1) THEN 

ayseab з=; 
{ The following routine estimates the number of PatchPanel Cabinets |) 
IF SysCab = 1 THEN 

PatchPanel := 1 
ELSE IF SysCab = 09 THEN 
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22011 PatchPanel :- 0 
22021 Else IF SysCab > 1 THEN 
22031 PatchPanel := SysCab - 1; 
22041 { The following routine estimates the number of Expnasion Cabinets } 
22051 ЕхрапСар :- 0; 
22061 Configi6 := Processors DIV 16; 
22071 IF (Processors > (16 * Configl6 + 4)) AND 
22081 (Processors < (16 * (Configi6 + 1) + 5)) THEN 
22091 ExpanCab := Configl6 +1 
22101 ELSE ExpanCab := Configl6; 
PUT IF (Processors > 4) AND (Processors « 21) THEN 
22121 ExpanCab := 1; 
22131 ADDITIONAL CABINETS; 
2241 Slots := SysCab * 24; 
БІ 
22161 ( The following permits the user to increase the number of) 
22171 ( Patch Panel Cabinets for reserve/expansion. ) 
ZANG 1 Quantity :- PatchPanel « Add PatchPanel; 
22191 а= + 1]; ( I9 Patch Panel Cabinets } 
22201 IF Quantity > O0 THEN PRINT HW; 
ӘЛІП 
2222 |. { The following permits the user to increase the number of } 
22231 ( System Cabinets for reserve/expansion. } 
22241 Quantity :- SysCab « Add System; 
2225] I := I + 1; { I=10 Systems Cabinets } 
22201 ШЕ Quantity ^ 0 THEN PRINT HW; 
2271 Quantity := 3 * (SysCab + Add System); {3 1/0 Power Modules/System Cabinet} 
22281 ще f + 1; ( I211 I/O Power Modules Only } 
22291 DE Quantity ^ 0 THEN PRINT HW; 
22301 | 
22311 ( The following permits the user to increase the number of) 
22921 ( Expansion Cabinets for reserve/expansion. ) 
22331 Quantity := ExpanCab + Add Expansion; 
22341 fee I «1; ( 1=12 Expansion Cabinets } 
ДИЗЪТ IF Quantity > 0 THEN PRINT HW; 
РАЗГ Е; ( Procedure COMPUTE CABINETS ) 
22371 
22381 : 
22391 Begin { CONFIGURE PROCESSING SUBSYSTEM } 
22401 COMPUTE PROCESSORS; 
22411 . COMPUIE CRTS PTRS; 
22421 COMPUTE CABINETS; 
ӨЗГ Еткі; { CONFIGURE PROCESSING SUBSYSTEM } 
22441 
22451 
22461 PROCEDURE CONFIGURE STORAGE SUBSYSTEM; 
22471 Е Е 
22481 
22491 PROCEDURE COMPUTE DISK; 


22501 
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22511 
22521 Var 
22531 DiscCtrlr, DiscPatchPnl, THYPERPatchPnl : Integer; 
22541 
22551 CO OOO COC ЖЖ КЖК ЖЖЖЖ] 
22561 { The following procedures determine the number of discs, disc } 
22571 ( controllers, disc patch panels, and Patch Panel Cabinets to be ordered } 
22581 ( The reason that PATCHPNL must be called, which includes THL and ASYNC/ ) І 
2259І { SYNC routines, from the disc procedure is to maintain the NAVSUP } 
22601 ( required delivery order sequence. Discs are in even quantities due to } 
22611 { the "“mirrored-disc" requirment in SPLICE. } 
22021 { *ЕЖЖЖЖЖЖЖЖЖЖЖЖЖ ЖЖ Ж ЖЖЖ ЖЖЖ ЖЕ ЖЕЖ IE fe iE fe oe ae ЕЖЖЕжжЖжжж | | 
22631 | 
22641 PROCEDURE COMPUTE PATCH PANELS; | 
22651 | 
22661 Begin ( Procedure COMPUTE PATCH PANELS } 
22671 DiscCtrlr :- (DI28MB + D240MB + D540MB) DLV 2; 


22681 IF (DiscCtrir MOD 2) > O THEN DiscCtrlr = DiscCir iy eae, 

22091 Quantity = Е Ш, 

22704 WHILE (Quantity MOD 4) > O LO 

22711 Quantity := Quantity + 1; 

22121 DiscPatchPnl := Quantity DIV 4; ( 4 disc controllers per Disc Patch Panel } 
22731 Quantity := DiscPatchPnl; 


22741 DC RE EU | ( І-13 Disc Patch Panels } 

22751 IF Quantity > 0 THEN PRINT HW; 

22761 Т = Иб { 1=14 TANDEM HYPER Link Patch Panels ) 

DONT IP Sto k Bont SEN { Is the site a Stock Point site? } | 
22181 IF (THYPERchannels > 0) and (THYPERchannels < 5) THEN | 
2279T Begin | 
2280I Quantity за ПО | 
22811 PRINT HW; 

22821 End 

22831 ELSE 

22841 Begin 

22851 THYPERPatchPnl :- THYPERchannels * 2; 

22861 WHILE (THYPERPatchPni MOD 4) > O Do 

22971 THYPERPatchPnl := THYPERPatchPnl + 1; 

22881 THYPERPatchPnl := THYPERPatchPni DIV 4; 

22801 Quantity := THYPERPatchPnl DIV 4; 

22901 IF Quantity > O0 THEN PRINT НМ; 

2291I Ери 

22021 Quantity := AsyncCErl; 

2293I 52 то { 1=15 ASYNC Patch Panels } 

2294I IF Quantity > O0 THEN PRINT HW; 

22951 т { I=16 SYNC Patch Panels} 

22961 IF Bytesync > 0 THEN 

22971 { Only BYTE SYNC lines require SYNC Patch Panels } 

22961 Begin 

22991 Quantity := Bytesync; 

23001 PRINT ИМ; 
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2301I End; 

23021 End; ( Procedure COMPUTE PATCH PANELS ] 
23D3I 

2304I 

23051 PROCEDURE COMPUTE DISK COMPONENTS; 

2306I 

2307I 

23081 Begin (| Procedure COMPUTE DISK COMPONENTS ) 
23091 Quantity :- DiscCtrlr; 


23101 = Т 1; { I=17 Disc Controllers |) 

ВИТ IF Quantity » 0 THEN PRINT HW; 

23121 Quantity := D128MB DIV 2; { Two drawers in each 128MB drive } 
23131 De T + 4 { 1=18 1st Drawer of 128MB Discs } 
23141 IF Quantity > 0 THEN 

2315I . Begin 

23161 PRINT HW; 

2917I epee eel. { I=19 2nd Drawer of 128MB Discs } 
23181 PRINT HW; 

2319I Епа 


23201 PIE T :- I *. 1; 

23211 Quantity := D240MB; 

23221 E Ius ( I-20 240MB Discs ] 
23231 IF Quantity > O0 THEN PRINT HW; 

23241 Quantity :- D540MB; 

8251 ВЕЕТ + 1; ( І-21 540MB Discs } 
23261 IF Quantity » 0 THEN PRINT HW; 

23271 End; ( Procedure COMPUTE DISK COMPONENTS ) 

2328I 

2329I 

23301 Begin { Procedure COMPUTE DISK } 

2331 — COMPUTE PATCH PANELS; 

2932T COMPUTE DISK COMPONENTS; 

СОВЕ End; ( Procedure COMPUTE DISK ) 

23341 

ESSSI 

23361 PROCEDURE COMPUTE TAPE; 

Й8971 

2338I ИЕККЕ ЖЕЖ КЖК ККЕ ККЕ КККК КККК ЖЖЖ Ж ЖЕЖ ЖЖЖ ЖЖК ЕСЖ } 
2339I { This procedure determines the number of Tape Drives and Tape } 
23401 { Controllers to be output on the delivery order. } 
2341 Т Оер ЕЕЕ у 
23421 

23431 Begin ( Procedure COMPUTE TAPE ) 

2344I Quantity := TapeDrv; 

23451 ше Quantity > 0 THEN 


23461 Begin 

23471 LOI 4-5 { I=22 Tape Controllers } 
23481 PRINT HW; 

2349I Ja Г: { I=23 Tape Drives } 
23501 PRINT_HW; 
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23511 End 

23521 ӘН Е 2: 

2353I End; ( Procedure COMPUTE TAPE | 

2354I 

23551 | 

2356I Begin ( Procedure CONFIGURE STORAGE SUBSYSTEM ) 

23571 COMPUTE DISK; 

23581 COMPUTE TAPE; 

23591 End; ( Procedure CONFIGURE STORAGE SUBSYSTEM } 

23601 | 
23611 

23621 PROCEDURE CONFIGURE INPUT OUTPUT SUBSYSTEM; 

23031 

23641 

23651 PROCEDURE COMPUTE READER PUNCHES; | 
23661 { FEERER EER EEE ERE TERE EEEEEEE EEE ЖЕ ЕЖЕ ЕЖУ ЕЖЕ ЕЕК ОЕ 
23671 ( This procedure determines the number of Reader/Punches and Card Readers } 
23681 ( to be output on the delivery order. 

2369I (Е ЖЕЖЖЕЖЕЖЖ ЕЕК ЖЕ ЖЖ Е ЕЖЕ ЖЕ ЗЕМЯ ЕЛЕЧЕ oe oe oorr re eor or o ee 
23701 . 

23711 Begin ( Procedure COMPUTE READER PUNCHES ) 

2372I Quantity := БОЕРИПСП; 

2373I Jo slo ph ( I-24 Card Reader/Punches } 

23741 IF Quantity > 0 THEN PRINT IIW; 

23751 Quantity := CardRdr; 

23761 E E { I=25 Card Readers } | 
23771 IF Quantity > 0 THEN PRINT НИ; | 
23781 End; ( Procedure COMPUTE READER PUNCHES } | 
2379I 

2380I 

23811 PROCEDURE COMPUTE LINE PRINTERS; 

23921 

23831 {ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ ЖЖЖЖЖЖЖ ЖЖЖЖЖЖЖЖЖЖЖЖ ЖЖЖЖ ЖЕ ЖЖ ЖЖ ЖЖ ЖЖЖ ЖЖ ЖЖУЖЖЖЖЖЖЖХ | 
23841 ( This procedure determines the number of 1000 LPM and 600 LPM Printers } 
2385I { to be output on the delivery order. } 
23861] (FOR RR RR RICK ] 
21971 

23881 Begin { Procedure COMPUTE LINE PRINTERS } 

2389I Quantity := RdrPunch + CardRdr + LPM1000 + LPM600; 

23901 I ou. { 1-26 Line Ptr/Crd Rar etn ia 
23911 IF Quantity » 0 THEN PRINT HW; 

23921 Quantity :- LPM1000; 

2393I Jew p ( I-27 1000 LPM Printers } 

23941 IF Quantity > 0 THEN PRINT HW; 

23951 Quantity :- LPM600; 

2396I i Soaks d { [=28 600 LPM Printers } 

23971 IF Quantity > O TIEN PRINT IW; 

23981 End; | Procedure COMPUTE LINE PRINTERS ) 

25891 

24001 
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24011 Begin ( Procedure CONFIGURE INPUT OUTPUT SUBSYSTEM ] 

2402I COMPUTE READER PUNCHES; 

2403I COMPUTE LINE PRINTERS; 

2404I End; ( Procedure CONFIGURE INPUT OUTPUT SUBSYSTEM ) 

2405I 

2406I 

24071 PROCEDURE CONFIGURE COMMUNICATIONS SUBSYSTEM; 

2408I | 

2409I 

24101 PROCEDURE COMPUTE FOX; 

2411171 (жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжижжжжжжжжижжжжжжжжжжжжжжж) 
24121 ( This procedure determines the number of FOX fibre optic controllers and ) 
24131 ( lines to be output on the delivery order. FOX permits SPLICE nodes of ] 
24141 ( 16 OR less Processors (which are co-located within 1000 meters) to be } 
2415I ( directly interconnected. } 
2416I eK EEE EEA EES Eee EE EEE EEE EEE EEE EEE EET ER EEE EEE REESE EEK EA EEEE) 
24171 

24181 Begin ( Procedure COMPUTE FOX ) 


24191 = Г+ 1; { I=29 Skips Interprocessor Bus ) 
24201 IF Processors > 16 THEN 

24211 Begin 

24221 Jo I + +; { 1=30 FOX CNTRLs for > 16 unit system } 
24231 Quantity := Processors; { Processors > 16? If so, order FOX } 
24241 WHILE Quantity MOD 16 > 0 DO 

24251 Quantity := Quantity + 1; 

24261 Quantity := Quantity DIV 16; 

24271 PRINT HW; 

24281 в > { I=31 FOX caples ) 

2429I Quantity := Quantity - 1; | 

24301 PRINT HW; 

24311 End 


EBENE ELSE I := I + 2; 

24331 End; { Procedure COMPUTE FOX } 
24341 

24351 

24361 PROCEDURE COMPUTE HYPERCHANNELS; 
РАЗ т 


24381 {жжжжжжжж жж жж ж жж ж ж жж ж жж жж ЖЖЖ ЖЖЖЖ ЖЖЖ Ж ЖЖЖЖ ЖЖЖ ЖЖЖ КЖК ЖЖЖЖ Ж ЖК ЖЖЖЖ К ЖЖ ЖК Ж+ } 


2439Т ( This procedure is called Бу СОМРУГЕ COMMUNICATION SUBSYSTEM and } 
2440I ( is invoked only for the configuration of Stock Point Sites. It } 
2441I { uses the user inputs for HYPERchannel adapters and connections to } 
2442T { write out the correct HYPERchannel component site quantities on } 
2443I { the delivery order. Selected componets are written to disk via } 
24441 ( the PRINT HW routine. ) 
2445I E EEEE EEEE EEEE Ek kE kkk kkkkkkkkkkkkkkkkkktkkkkkkkkkkkkkkkkkkkk*] 
24461 

24471 

24481 PROCEDURE EXTRA HYPERCABINETS; 

2449I 


2450I Begin ( Procedure EXTRA HYPERCABINETS ) 


PADS 
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24511 Add HYPERChannel :- 0; 
24521 ‚СОРОК (15,01) 
24531 СОТОК ТО КТЕ" 
24541 WRITE ('HYPERchannel'); 
2455I 
2456I screen fieldSS :- 1; 
2457I Varso 2-1; 
24581 retrieveSS :- False; 
2459I last fieldSS :- False; 
24601 Eobss c c 
2461I 
24621 IF Stock Point » 'S' THEN 
2463I GETINT(68,16,2,'N' ,HYPERCab, ' /f' ,O,16,retSS,False,14,1); 
2464I 
2465I REPEAT ( until answerSS - 'Y' } 
24661 { Display Items. Change retrieveSS to True and INPUT items} 
24671 REPEAT { until actionSs: = excess | 
24681 IF Stock Point = 'S' THEN 
24691 GETINT(75,16,2,'N' ,Add_HYPERchannel, '##',0,8,retSS,retrieveSS,14,1); 
24701 
24711 last_fieldSS := True; 
24721 RET STATUS; ( Check ће соде іп "гей55", беб "уаг55" and '"actionSS" ) 
24731 
24741 ( Check to see whether to switch retrieveSS to true } 
24751 IF last fieldSS AND (not retrieveSS) THEN 
24761 Begin 
2477ї retrieveSS :- True; 
24781 last fieldSS :- False; 
2479I actionSS :-2 staySS; 
24801 Vdrose s 
24811 End 
2482I ELSE 
24831 last fieldSS := False; 
24841 UNTIL actionsS = ex16SS; 
2485I ACCEPT INPUTS; 
2486I UNTIL answerSS = 'Y'; 
24871 End; { Procedure EXIRA_HYPERCABINETS } 
24881 
24891 
2490I Begin ( Procedure COMPUTE HYPERCHANNELS } 
24911 A400 := A400 + THYPERchannels; 
24921 ( Stores all minicomputer HYPERchannel Adapter requirements ) 
2493I Quantity := A400; 
24941 Lat geal ( 1232 A400 - TANDEM HYPERChannel Adapters } 
24951 IF Quantity » O THEN PRINT ІМ; | 
24961 Toe cus { I=33 2nd HYPERchannel Trunk Interface } 
24971 Те = 27) HEN 
24981 Begin 
24991 Quantity :- 1; 
25001 PRINT HW; 
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25011 End; 

2502T HYPERCab := ((A400 DIV 2) + A150 « AXXX + А220 + А140 + А510) DIV 2; 
2503I EXIRA HYPERCABINETS; 

2504I Quantity :- HYPERCab « Add HYPERChannel; 

25051 

25061 Ц К ЕЕК К ЕЕ ЕК КНК КККК Ж Ж Ж ЕЖ ЕЖ ЖЖЖ) 
25071 ( The above line determines the number of HYPERchannel cabinets to } 
2508I { be estimated for the user. It assumes that all TANDEM and P-E } 


25091 { HYPERchannels can reside in the same cabinet and that one cabinet} 
БОТ { for every two additional adapters will suffice. | ) 
25111 BEN LEO EEE EEE EEE TEEPE op ЕКЕ КЕ ЖЕ ЖЕКЕ ЕЕ ЖЕЖ у 
25121 


ӘЙ 31 и 


s ( 1234 HYPERchannel Cabinets } 
25141 IF Quantity ^» 0 THEN PRINT HW; | 


25151 Quantity := THYPERchannels; 

РТТ раз Top i; [amos uU controllers ) 
25171 If Quantity > 0 THEN PRINT HW; 

Zolel mantity = Trunks; { I=36 - 41 LCN Trunk Line } 
BEUST Фо TIrunks > © THEN 

25201 Begin 

ESSI Case Cable Distance of 

2522I A: Begin 

25231 лг ы < БОЕ ) 
25241 PRINT HW; 

5251 Tos Lek 5; 

25261 Епа; 

25271 ШІ. Begin 

Peel о: Е. 000 ГЕ ) 
25291 PRINT HW; i 

25901 а-ы Т A; 

ВТ End: 

25321 с: Begin 

25331 JI; ОЕ | 
25341 PRINT IW; 

2535I Ie TEE. 

25361 Епа; 

253/I 955 Begin 

25501 Iro; (elias? 20 ft 27 
ESJOI PRINT HW; 

2540I I := I + 2; 

25411 End; 

25421 B: Begin 

2543I т. { 1=40 « 4000 ft } 
2544I PRINT HW; 

2545I IE “G l; 

25461 Епа: 

25471 ера Begin 

25481 i= eo ИЕТ < 5000 fE } 
25491 PRINT HW; 

25501 Епа? 
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Page 52 
2551 I End; 
25521 End 
25531 ELSE I := I + 6; 
2554I Quantity :- A150; 
2555I S NEL. 
25561 IF Quantity > O0 THEN PRINT HW; 
25571 Quantity := АХХХ; 
29501 NC EE 
2 591 IF Quantity > 0 THEN PRINT HW; 
25601 Quantity := А150 + АХХХ + A220; 
25611 
25021 f= alee 
25631 IF Quantity » O THEN PRINT HW; 
2564I Quantity :- A400 - THYPERchannels; . { 
25631 pra qe 15 
2566I IF Quantity > 0 THEN PRINT ПИ; 
25671 Quantity := A220; 
25681 Е ЗЕЛЕ ale 
25691 IF Quantity > 0 THEN PRINT HW; 
25701 Quantity := A140; 
25711 Шаа por |Б 
25721 IF Quantity > 0 THEN PRINT HW; 
25791 Quantity :- A510; 
25/41 Гыз А; 
25751 IF Quantity > 0 THEN PRINT HW; 
25761 Do] ае 
25771 
25781 End; ( Procedure COMPUTE HYPERCHANNELS ] 
25791 i 
25801 
2581I PROCEDURE COMPUTE TERMINAL COMMUNICATIONS COMPONENTS; 
25821 
25831 Var 
2584I CableOpt, K : Integer; 
25851 
25861 
25671 
25881 ( This procedure is used to handle all SPLICE terminal oriented 
25891 { communications requirements. 
2590I { ected components to the output file. 
25911 [REE ERE RAKE IR RK ER RE ЖК КОЕ BE RO KE Oe ee ee лии 
25921 
25931 Begin ( Procedure COMPUTE TERMINAL COMMUNICATIONS COMPONENTS ) 
2594I AsyncExtbd :2 AsyncCtrl * AsyncExtbd; 
2995] IF AsyncCtrl > O THEN 
2996I Begin 
25071 Quantity := AsyncCtrl; 
25981 | зА ща 12 
2999T IpoDuanbBty > 0 THEN PRINT HW; 
26001 IF AsyncExtbd > 0 THEN 
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( A150 - B4800 HYPERchannel Adapter. } 


( І-42 HICIA interfaces } 


{ АХХХ - B4900 HYPERchannel Adapter. } 


{ I=43 DLP interfaces } 


{ Burroughs & IBM hosts require ASCII to ECBDIC Conversion Board. } 
{ 1=44 ASCII to EBCDIC Conversion Board} 


P-E HYPERchannel Boards } 


{ 1=45 PI 40 Boards for P-E } 


{ I=46 IBM HYPERchannel Adapters } 


{ I=47 UNIVAC HYPERchannel ‘Adapters } 


{ I=48 FIPS HYPERchannel Adapters } 


{ I=49 Find out what line 420301 


is and insert here ) 


(кжжжжжжжжижжжжжжкжжжжжжжжжжжжжжжжжжижжжжжжжжжижжжжжжж КОЖ ОКК Ж 


PRINT HW is called to write sel- 


{ 1=50 ASYNC Controllers ) 


} 
) 
) 
) 
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2601I Begin 
26021 Quantity :- AsyncExtbd; 
2603I Е. { 1=51 ASYNC Extension Boards } 
26041 PRINT HW; 
26051 End 
26061 Else I := I + 1; 
2607I Епа 
2608I Else I := I +-2; 
26091: Ter T| + 1; ( I=52 Skips Auto Calling Unit Line Item ) 
26101 KE = (LIU -1) DIV 45; 
26111 Gmantity := 110; 
26121 IF LIU > O THEN 
26131 Вед1п 
26141 Quantity :- К + 1; 
2615I [EST 1: { I=53 6100 Comm Base } 
26161 PRINT HW; 
26171 IF (LIU > 45*K) AND (LIU <= 45*K+15) THEN 
26181 Begin 
Z6191 Quantity :- 2*K; 
26201 CableOpt := 6*K+2; 
26211 End; ` 
20221 IF (LIU > 45*K+15) AND (LIU <= 45*K+30) THEN 
26231 Begin 
26241 Quantity := 2*K+1; 
26251 CableOpt := 6*K+4; 
26261 End; 
26271 IF (LIU > 45*K+30) AND (LIU <= 45*(K+1)) THEN 
26281 Begin 
26291 Guantity =:=—27 (Kt) > 
26301 CableOpt := 6*К+6; 
26311 End> 
26321 [I 15 { 1=54 Base ADD-ONs ) 
2633I PRINT IW; 
2634I Quantity := LIU; 
26351 I De 1; { 1-55 LIUs } 
26361 PRINT HW; 
26371 Quantity :- CableOpt; ( 6100 cables: 2 / base & 2 / add-on ) 
26381 Е. { Skips 30M & 45M cables } 
26391 1 ( I=58 6100 Cables } 
26401 IF Quantity » O THEN PRINT HW; 
2641I End u 
26421 Else I := I + 6; ( Skips I253-58 if no 6100 Controllers ) 
2643I IN- I + +: ( I=59 BIT SYNCH Controllers } 
26441 Ir bitsync > 0 THEN 
2645I Begin 
26461 Quantity := Bitsync; 
26471 PRINT HW; 
26481 End; 
26491 NES IS; | 1-60 BYTE SYNCH Controllers } 
26501 IF Bytesync > 0 THEN 
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26511 Begin 
25921 Quantity :- Bytesync; 
2653I PRINT HW; 
2654I EDG? 
26551 Тара; { Skips I=61-62; ARCLI items ordered} 
26561 End; ( Procedure COMPUTE TERMINAL COMMUNICATIONS COMPONENTS ) 
26571 
2658I 
2659I Begin { Procedure CONFIGURE COMMUNICATIONS SUBSYSTEM } 
26601 СОМРОТЕ ҒОХ; 
26611 IF Stock Point - 'S' THEN COMPUTE HYPERCHANNELS 
26621 Else T: T 18; 
2663I COMPUTE TERMINAL COMMUNICATIONS COMPONENTS; 
26641 End; ( Procedure CONFIGURE COMMUNICATIONS SUBSYSTEM } 
26651 " Б 
26661 
26671 Begin { Procedure CONFIGURE HARDWARE | 
26681 INITIALIZE HARDWARE INPUTS; 
26691 GET HARDWARE INPUTS; 
26701 CONFIGURE PROCESSING SUBSYSTEM; 
206711 CONFIGURE STORAGE SUBSYSTEM; 
25721 CONFIGURE INPUT OUTPUT SUBSYSTEM; 
20737 CONFIGURE COMMUNICATIONS SUBSYSTEM; 
2674I COMPUTE SECTION TOTALS ('Software'); 
26751 Mode := Soft; 
26761) End; { Procedure CONFIGURE HARDWARE } 
26771 
26781 
26791 PROCEDURE CONFIGURE SOFWARE; 
2680I 
2681I 
26821 Var 
26831 ( Variables Section For C:SOFTWARE } 
2684I SW6100 : Char; 
2685I ADCCP 6100, ATP 6100, BSC 6100, 5МАХ 6100, ТІМЕТ 6100, АМ 6520 ; String ЕЕ 
26861 DDN, FDC DLANet, FDC SNA, NMF Performance : String ПЕК 
2687I NMF Accounting, NMF Base Facility, NMF Diagnostics, NMF Group : String [1|]; 
2688I POLL SELECT, FILE SECURITY, LCN FUP, T TEXT, TR 3271 : String db 
26691 NETEX Months, SPLICENet Months : Integer; 
26901 
26911 
2692I (ЕЕРЕЕ ЕЕЕ ЕЕЕ ЕЕЕ ЕЕЕ ЕЕЕ ЕЕЕ ЕКЕ ТЕ ЕТЕН ЕУ ЕТЕТ ЕКЕ жез т БИ 
26931 ( This procedure is used to determine the software requirements for } 
26941 ( the delivery order. Please see the rules in the Programmer Main- } 
26951 ( tenance Manual to determine which packages are ordered PER } 
26961 ( PROCESSOR, PER SITE, and PER PROCESSOR USED. ALL software } 
26971 { maintenace is PER SITE. Various discount/escalations apply to } 
2698I ( the software packages. See the BUILD COST TABLE procedure for ) 
2699I ( specific factors and how they are incorporated into the COSTTABLE ] 
2700101 “array: 
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27011I (жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж ) 


27021 

27031 

27041 PROCEDURE INITIALIZE SOFTWARE INPUTS; 

27051 

27061 

27071 Begin ( Procedure INITIALIZE SOFTWARE INPUTS ) 
2708I ( Initialize Variables To Default Values ) 
27091 ADCCP 6100 = NS 

27101 M66520 зе "Ys 

27111 IL 6100 = Y; 

271 2I BSC 6100 = М; 


РТ ПОМ := 'N'; 

27141 FDC DLANet :- 'N'; 
27151 EDC SNA := Y; 

27161 RILE SECURITY := 'N'; 
27171 ВОР =; 


218I NEIEX Months :- 0; 

27191 NMF Accounting :- 'N'; 
27201 NMF Base Facility :- 'N'; 
2721I NMF Diagnostics :- 'N'; 
27221 IME Group := 'N'; 


2 931 NMF Performance :- 'N'; 

27241 POLL SELECT := ‘Y'; 

27251 | SNAX 6100 :- 'Y'; 

27261 SPLICENet Months :- 0; 

27271 АПЕК :— "UY". 

27281  TINET 6100 :- 'N'; 

2729I Ш9271 :- "М; 

ЗІ End; ( Procedure INITIALIZE SOFIWARE INPUTS ) 
27311 Е = 
27321 

27331 PROCEDURE GET SOFTWARE INPUTS; 

27341 Е 

27351 Begin 


27361 screen fieldSS :- 21; 

т а :- 1; 

9 ІЗдІ retrieveSS :- False; 

27391 last fieldSS := False; 

27401 DISPLAY SCREEN (Screenfile); { Display Screen } 
27411 

27421 REPEAT { until answerSS = 'Y' } 

27431 { Display Items. Change retrieveSS to True and INPUT items} 
27441 REPEAT { until actionSS = exitsSs } 


27451 CASE varSS of 

27461 ЕЕ 6..1, У ;PILE SECURITY, "U',"",'*,retSS,retrieveSS,15,1); 
27471 11 БЕБЕК Point = 'S' THEN 

27481 CEE 3676,1 Y ECN TUBA KO K retSS ,retrieveS55,15,1); 
27491 ККИ ЕЛЕ ЗБ 8/1 'V' ATP 6100 0 FSESS,retrievess, 15,1): 
2750I SEE C Tipi 0 0 TY TBSCUOT00, US!" ""retSS,retrieveSS, 15,1); 
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21511 5: СЕТІТЕМ(36,10,1, Ү",АГССР 6100, 0”,"!, “,гегсесв, тестлеу ии 
UST 6: GETITEM(36,11,1,'Y',POLL SELECT, 'U','",'"jretSS,retrieves5 M PN 
2753] 7: GETITEM(36,12,1,' Y',SNAX 6100, ' U' , ", ,retss,retrievese ы 
27541 8: СЕТІТЕМ(36,13,1, Ү",ТІМЕТ 6100, 0”, ","" гебес тергіеуесе MN 
27551 9: GETITEM(36,14,1,'Y' TR 3271, 'U', '','',retSS,retrieveSS,15,1); 
27561 10: СЕТТТЕМ(36,15,1, У" „АМ 6520, 0 ,"", ° ,retSS,, retrievessS aun 
27571 11: СЕТІТЕМ(36,16,1, 'Ү',Т ТЕХТ, 0055, Утес re eve ME 
27581 12: СЕТІТЕМ(74,5,1,"Ү",ЕЮС ӨМА, 07," "тегеб теспемеее іг т 
27591 13: GETITEM(74,6,1,'Y',FDC DLANet, U' , ',''jretSS,retrievess и пин 
2760I 14:  GETITEM(74,7,1, 'Y',DDN, U" , "  ," S retSS,retrieves ME NE 
27611 15: GETITEM(74,9,1,'Y',NMF Group, U', ',' ,retSS,retricvesS T NT 
27621 16: IF NMF Group - 'N' ‘THEN 
2763I GETITEM(74,12,1,'Y',NMF Base Facility, 

27641 "up tit retSs ,peunlevess (ol). 

27651 17: IF NMF Group - 'N' THEN 

27661 GETITEM(74,13,1,'Y',NMF Performance, 

27671 "U','','',retSS,retrieveSS,15,1); 

27681 18: IF NMF Group - 'N' THEN 

27691 GETITEM(74,14,1,'Y',NMF Diagnostics, 

27701 iu 7 retos rebricyess |871); 

STAT 19: IF NMF Group - 'N' THEN 

27721 GETITEM(74,15,1,'Y',NMF Accounting, 

27731 'Чф*,**,*",гтеБ65,гебгт1еуө5$5,15,1); 

27741 20: IF Stock Point = ‘S' THEN 

РТ GETINT(60,21,2,'N' ,NETEX Months, 

27761 "4#" 0,12, ,retSS, retrievess, iS 1); 

27771 21: GETINT(60,22,2,'N',SPLICENeT Months, '##',0,12,retSS,retrieveSS, SPER 
27781 Bnds t CASE) 

27791 

27801 IF varSS - screen fieldSS THEN last fieldSS:-True; 
2781I RET STATUS; ( Check the code in "retSS". Set  "varSS" and "actionSS" ) 
27821 

21831 ( Check to see whether to switch retrieveSS to true ) 
27841 IF last fieldSS AND (not retrieveSS) ‘THEN 

27851 Beqin 

27861 retrieveSS := True; 

27571 last fieldSS := False; 

27881 асЁ1оп55 == Stayss; 

27891 varoo supe 

27901 End 

27911 EISE 

27921 last_fieldSS := False; 

27938 UNTIL actionSS=exitSs; 

27941 ACCEPT INPUTS; 

27951 UNTIL answerSS - 'Y'; 

27961 End;  ( Procedure GET SOFIWARE INPUTS ] 

27971 

27981 


27991 PROCEDURE PRINT SW (Type Software : 


Integer); 


28001 LARISA IRS IIo a io СО kE ) 


ho 
“2 
о 
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28011 ( used in any maintenance computations. ) 
28021 (жожюжжжкжжжжжжжжжжжижжжжжжжжжжжжжжижжжжжжижжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжи ) 
2803I 
28041 Begin ( Procedure PRINT SW ] 

2805I CASE Type Software of 

28061 1: Begin { Per Processor Basis } 

28071 Maint Factor :- Momaint Esc Rate; 

2808I Extended, Price :s Quantity * CostTable[I].purchprice; 
28091 End; 

28101 2: Begin ( Per Site Basis } 

28111 Maint Factor :- Momaint Esc Rate; 

28121 Extended Price :- CostTable[I].purchprice; 

2813I Епа: 

2814I 3: Begin ( Per Processor Basis ] 

281 БТ Maint Factor :- 1; 

2816I Extended Price :- Quantity * CostTable[I].purchprice; 
ат End: 

2818I End; ( End of CASE Statement ) 

2819I LINE SETUP; | 
28201 GAARA EO ORE ERE SAGE OOo жж) 
29211 { Canpute System Downtime Credit Component Factor per month } 
28221 [КЖЕ ee ee EE EEK EEE EE EEA EE EEE EEE EERE EAA EES | 
8291 System Downtime Component :- System Downtime Component + 

28241 (Quantity * CostTable[I].basemaint 
28251 г Маше Басвег |; 

2826Т (ЖЖЖ ӘЖ ЖЕЖ ЖЖ ЖЖ ЖЖЖ ЖЖ ЖЖ ЖК ЖЖЖЖЖЖЖЖ ЖКХ } 
28271 ( Compute the Component Downtime Credit Factor per hour } 
DOUBT (жжжжжжжжок жж жж ж жж OOO ORF ЧОЕ 
28291 Downtime Credit := (((CostTablel1].purchprice + CostTablell].instcost) / 48) 
28301 * (CostTable[I].basemaint * Maint factor)) * 0.005; 
2831I WRITELN (Diskfile, '"', Line Number:7, '" "', CostTable[I].featureno:8, 
28321 anu  xccshISblebr].descript:28, '"', Quantity:3, 

28331 CostTable[I].purchprice:13:2, Extended Price:12:2, 

2834I ЕЕ: | basemain’:9:2, Maint Factor:8:3, Maint _Months:5, 
28351 CostTable[I].basemaint * Maint Factor * Maint Months:12:2, 
28361 CostTable[I].instcost:8:2, 

28371 CostTable[I].instcost * Quantity:9:2, Downtime Credit:9:2, 
2838I (пашешрищ е CostlablelT].basemaint * Maint Factor):9:2); 
28391 Епа; { Procedure PRINT SW } 

28401 

28411 

28421 PROCEDURE COMPUTE PROCESSOR SOFTWARE; 

28431 

28441 Begin { Procedure COMPUTE PROCESSOR SOFTWARE } 

28451 Quantity := Processors; ( PER-PROCESSOR SOFIWARE } 

28461 IF Quantity > O0 THEN 

28471 Begin 

2848I ет. { I=63 GUARDIAN } 

28491 PRINT SW (1); { PER-PROCESSOR SOFIWARE | 

28501 EE: OT £ J { I=64 BATCH } 
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2851I PRINT SW (2); ( PER-SITE SOFTWARE ) 
28521 J ise түе; ( 1=65 System Utilities } 
28531 PRINT SW (2); ( PER-SITE SOFIWARE } 
2854I I t= 1 + 1: ( I=66 ENCOMPASS } 
28055] PRINT SW (1); { PER-PROCESSOR SOFTWARE } 
28561 I-:5 1903555 { Skips 5 p/o software packages } 
256571 Е: ( I72 TPS Software } 
28581 PRINT SW (2); { PER-SITE SOFTWARE } 
28591 Г “кет ы Б; { Skips 5 p/o software packages } 
28601 Епа 
28611 ELSE I 2= i+ slo. 
28621 J ° qose [ I=78 File Security Software ) 
2863I IF File Security = 'Y' THEN PRINT SW (2); 
28641 32-71; { I=79 Card Reader Software } 
28651 ( PER-SITE SOFIWARE ) 
2866I IF Cardhdr > 0’ THEN PRINT SW (21; 
28671 IC IL ( Skips 3 p/o software packages ) 
28681 End; ( Procedure COMPUTE PROCESSOR SOFTWARE } 
28691 
28701 
28711 PROCEDURE COMPUTE COMMUNICATIONS SOF'IWARE; 
28721 
28731 Var 
2874I Temp Months : Integer; 
28751 
28761 
28771 PROCEDURE COMPUTE TANDEM SOFTWARE; 
28781 I 
2879I Begin { Procedure COMPUTE TANDEM SOFIWARE ) 
28801 Quantity := Processors; 
28811 IF Quantity > O THEN 
28821 Begin 
2883I T Saas cl ( I=83 EXPAND Software | 
28841 PRINT SW (1); ( PER-PROCESSOR SOFTWARE } 
28851 Е т. ( I=84 Skips Exchange RJE Software } 
2886I { Possibly need to add choices to software screen for next two items } 
28871 = ТЕ ls ( I=85 AM 3270 Software } 
28881 PRINT SW (1); ( PER-PROCESSOR SOFTWARE } 
28891 T e e p i15 ( І-86 X.25 ACCESS Software} 
29904 PRINT SWE (T); ( PER-PROCESSOR SOFTWARE } 
28911 End 
28921 ЕБЕ ТЕАТ: 
25931 I re pea no ( Skips I=87 HYPERLINK Access Method S/W) 
28941 T cu pog а ( 1=88 ІСКМИЕШРІ 
28951 IF (SiteInfo.site суре = 5) АМО (ШСМ ЕОР Ша! 
28961 PRINP SW (2); | 
26971 I n qe ( I-89 Skip GFE Terminal Support ) 
2898I [x ГІЗ): [ 1-90 ATP 6100 } 
28991 IF ATP 6100 = "Y "HEN PRINT SW (1); 
2900I pios нө | 1-91 а 5500200) | 
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29011 IF BSC 6100 s 'Y' THEN PRINT SW (1); 


29021 EI + 1; (ЕО ADCCP 6100 ) 

29031 ДЕ АПОССОР 6100 « ҮФТНЕМ РКІМІ ЕЙ (1); 

29041 s= L + 1 ("1293 TINET 6100 } 

29051 IF TINET 6100 - ОТЕ PRINT SW (1); 

29061 т № ( І-94 BURROUGHS POLL-SELECT } 
29071 IF POLL_SELE о НЕН PRINT SW (1); 

2908I тт; { 1=95 SNAX 6100 } 

29091 IF SNAX 6100 - 'Y' THEN PRINT SW (1); 

2910I с a de Г І-96 ЧЕ 32717 

29111 IF TR 3271 - 'Y' THEN PRINT SW (1); 

29121I Е. (I 975 AM 6520 } 

2913I E2657 0 0 Y THENCERENT- SW. (01); 

2914I з= ++ 15 ( I=98 FDC SNA Interface Package } 
29151 Ше БИХ SNA = 'Y' THEN PRINT SW (2); ( PER-SITE SOFTWARE ] | 

29161 ТТ. ( І-99 FDC DLANet Interface Package ) 


29171 IF FDC DLANet = 'Y' THEN PRINT SW (2); ( PER-SITE SOFIWARE } 
29181 End; ( Procedure COMPUTE_TANDEM SOFIWARE } 


29191 

29201 

29211 PROCEDURE COMPUTE HYPERCHANNEL SOFIWARE; 

29221 

2923] Begin ( Procedure COMPUTE HYPERCHANNEL SOFTWARE } 

2924I J := I + 1; { I=100 HTC1A NETEX Software ) 


ZU25I Temp Months :- Maint Months; 
27261 Maint Months :- NETEX Months; 
2927I IF (SiteInfo.site type - 'S') AND (A150 » 0) THEN 


90281 Begin 

СОСОТ Quantity :- A150; 

28301 РИШИП БИ (зи; 

20511 rs 572% { I=102 CIP, BUROUGHS HTC ) 
LOST Quantity := 1; . 

29331 Maint Months :- SPLICENet Months; 

29341 PRINT SW (2); 

281351 End 


2936I Else I := I + 2; 
29371 Maint Months :- NETEX Months; 


29581 = т.171; { [=103 Burroughs DLP NETEX S/W } 
29391 IF (SiteInfo.site type - 'S') AND (AXXX > 0) THEN 

2940I Begin 

2941I Quantity := AXXX; 

29421 PRINT SW (3); 

2943I грее та 7: { I=105 DLP Presentation Level S/W ) 
2944I Oant ity = и; 

29451 Maint Months := SPLICENet Months; 

29461 PRINT SW (2); 

29471 End 


29481 Hse T := [I + 2; 
2949] Maint Months :- NETEX Months; 
2950I M - I + 1; ( І-106 PE NETEX Software } 
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29511 IF (SiteInfo.site type - 'S') AND ((A400 - THYPERchannels) > 0) THEN 
22821 Begin 
29531 Quantity := (A400 - THYPERchannels) ; 

29541 PRINT SWE; | 

29591 pes Mu ( 1-108 CIP, PERKIN-ELMER } 
29561 Quantity := 1; 

29571 Maint Months := SPLICENet Months; 

29581 PRINT SW (2); 

28591 Епа | 

29601 Else I := I + 2; 

2961 T Maint Months :- NETEX Months; 

29621 LI>; { I=109 IBM NEIEX Software } 
29651 IF (SiteInfo.site type - 'S') AND {A220 » 0) THEN 

2964I Begin 

29651 Quantity := A220; 

29661 PRINT ИӘ; : 
2967I І:- І% 2; | f=) “СІРТЕРМ ШЕН 
29681 Quantity :- 1; 

2969I Maint Months :- SPLICENet Months; 

29/01 PRINT SW (2); 

29711 End 

2971 Else I := I + 2; 

DOE Maint Months :- NETEX Months; 

2974I pss IS р { I=112 UNIVAC NETEX Software } 
2975I IF (SiteInfo.site type - 'S') AND (A140 » 0) THEN 

29761 Begin 

29771 Quantity :- A140; 

29781 PRINT SW (3); 

29791 ТА тв Пойа, ( 1-114 CIP, UNIVAC | 

29801 Quantity 15 

29011 Malnt Months := SPLICENet Months; 

29521 PRINP SW (2); 

29531 End 

2984I Else I 229 1:042; 

29851 Maint Months :- NETEX Months; | 

2986I pos pee { I=115 TANDEM NETEX Software } 
29871 IF (SiteInfo.site type - 'S') AND (THYPERchannels > 0) THEN 
2988I Begin 

29891 Quantity := THYPERchannels; 

29901 PRINT SW (3); 

29911 End; 

2992I T cT a { I=117 CCP, TANDEM } 

29931 Quantity :z 1; 

29941 Maint_Months := SPLICENet Months; 

29951 PRINT SW (2); 

2996I posee qe { I=118 CEM, TANDEM } 

29971 PRINT SW (2); 

Ease Lend: { Procedure COMPUTE_IHYPERCILANNEL SOL IWARE } 

29991 

30001 
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30011 PROCEDURE COMPUTE DDN SOFTWARE; 


3002I 

30031 Begin ( Procedure COMPUTE DDN SOFTWARE ) 

3004I Ш-2- Т 472; ( 5КІР5 TWO OLD DDN PACKAGES ) 

30051 Quantity :- PROCESSORS; { PER-PROCESSOR SOFTWARE } 

30061 Maint Months :- SPLICENet Months; 

30071 Jos J + l; { I=121 DDN I/F Protocol Software ) 
30081 IF DDN - 'Y' THEN PRINT SW (2); { PER-SITE SOFTWARE } 

30091 Maint Months :- Temp Months; 

3010I m= I+ l; { I=122 NETWORK MGT FACILITY GROUP } 
30111 ша Group = Y THEN PRINT SW (2); 

SUT2I I := I +1; ( I2123 NMF BASE FACILITY) 

3013I IF NMF Base Facility - 'Y' THEN PRINT SW (2); 

30141 EE I 1; ( 1-124 NMF PERFORMANCE MONITORING ) 
JONSI IF NMF Performance = 'Y'THEN PRINT SW (2); 

3016I Ш :- І% |; ( I2125 NMF DIAGNOSTIC MONITORING } 
30171 IF NMF Diagnostics - 'Y' THEN PRINT SW (2); 

3018I tes] [ + 1; { 1=126 NMF ACCOUNTING APPLICATION } 


30191 IF NMF Accounting - 'Y' THEN PRINT SW (2); 
3020I Quantity := Processors; 


врат г, 2 ( Skips 2 p/o software packages ) 
Bozzi End; { Procedure COMPUTE DDN SOFTWARE } 
30231 


3024I Begin { Procedure COMPUTE_COMMUNICATIONS SOFTWARE } 
30251 — COMPUTE TANDEM SOFTWARE; 

30261 COMPUTE HYPERCHANNEL SOFTWARE; 

30271 COMPUTE DDN SOFIWARE; 

30281 End; | ( Procedure COMPUTE COMMUNICATIONS SOFTWARE ) 


3029I 

3030I 

30311 PROCEDURE COMPUTE UTILITY SOFTWARE; 

50321 i - 

30331 Begin ( Procedure COMPUTE UTILITY SOFTWARE } 

3034I ME. Ic]; { I=129 File Comparison Utility S/W ) 


30351 IF Processors » 0 THEN PRINT SW (2);( PER-SITE SOFTWARE ) 
3036I Quantity := Processors; 


3037I = Т 1; { 1=130 COBOL Software } 

30381 IF Processors > 0 THEN PRINT SW (1);( PER-PROCESSOR SOFIWARE ] 

30391 BET + 1; { Skips 1 p/o software package } 
3040I If (SiteInfo.siteno = 2) OR (SiteInfo.siteno = 3) ‘THEN 

30411 Begin 

30421 ито)" { 1=132 PASCAL Software } 

30431 IF Quantity > 9 THEN PRINT SW (1); { PER-PROCESSOR SOFTWARE } 
30441 End 


3045І Else := I + 1; 
30461 ie (SiteInfo.siteno 


2) OR (SiteInfo.siteno = 3) THEN 


30471 Begin 

30481 gc mrs { I=133 FORTRAN Software } 

30491 IF Processors » 0 THEN PRINT SW (1); { PER-PROCESSOR SOFTWARE | 
3050I End 
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30511 Else I := I + 1; 
30521 теге ГБ: ( Skips 15 p/o software packages. ) 
30531 те { 1=149 TRANSFER } 
30541 IF Processors > 0 THEN PRINT SW (1);( PER-PROCESSOR Software ) 
30551 ТР. { I=150 T-TEXT Software } 
30561 IF (T TEXT - 'Y') AND (Processors > 0) THEN PRINT SW (2); 
30571 i= pop { Skips two 1 time charge FMSO pkgs } 
30581 End; { Procedure COMPUTE UTILITY SOFTWARE } 
30591 
3060I Begin { Procedure CONFIGURE SOFTWARE } 
30611 INITIALIZE SOFTWARE INPUTS; 
30621 GET SOFTWARE INPUTS; 
3063I COMPUTE PROCESSOR SOFTWARE; 
3064I COMPUTE COMMUNICATIONS SOFTWARE; 
30651 COMPUTE UTILITY SOFIWARE; 
30661 COMPUTE SECTION TOTALS ('Documentation'); 
30671 Mode := Document; 
30681 End; { PROCEDURE CONFIGURE SOFTWARE ) 
30691 
30701 
3071I PROCEDURE INITIALIZE LAST SCREEN DATA; 
30/21 . 
30731 Begin ( Procedure INITIALIZE LAST SCREEN DATA ) 
3074I ( Initialize Variables To Default Values ) 
30751 Computer Ops := 0; 
30701 Data Communication :- 0; 
50771 Hardware Manual := 0; 
30781 Hardware Overview := 0; 
30791 Operator Training :- 0; 
30801 Per Call Months :- 3; 
3081I Programmer Ref :- 0; 
3082I Site Preps::- 'N'; 
3083I SPLICENet Workshop :- 0; 
3084I Sys Programmer :- 0; 
30851 Sys Resource := 0; 
30861 Sys Tuning Xray :- 0; 
3087I ТАГ, 0; 
3088I Training Group 2=°5; 
3089I End; { Procedure INITIALIZE LAST SCREEN DATA } 
30901 
30941 
30921 PROCEDURE GET LAST SCREEN DATA; 
30931 
30941 Begin ( Procedure GET LAST SCREEN DATA ) 
30931 screen fieldSS :- 14; 
3096I уагыз =; 
30971 retrieveSS := False; 
30981 last fieldSS :- False; 
3099I DISPLAY SCREEN (Screenfile); { Display Screen } 
31001 
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31011 REPEAT { until answerSS = 'Y' ) 
31021 ( Display Items. Change retrieveSS to True and INPUT items] 
BEqUST REPEAT | until actionsSS s exitSS ) 
3104I CASE varSS of 
BESOST 1: T GETINT(3575,2, N ,Computer Ops, 478 ,0,20,retSS,retrieveSS,15,1); 
31061 2: GETINT(35,7,2,'N',Programmer Ref,'f/',0,20,retSS,retrieveSS,15,1); 
ЕН 7І 3: GETINT(35,9,2,'N',Hardware Manual,'//4',0,20,retSS,retrieveSS,15,1); 
3108I 4: GETINT(35,11,2,'N',Sys Progranmer ,'##',0,20,retSS,retrieveSS,15,1); 
31091 ВЕ СЕЛЕУ | М raining Group ag OU S retsSSrretrievesS,15,1); 
3110I 6: GETINT(75,10,2, 'N',Operator Training, '///',0,20,retSS,retrieveSS,15,1); 
Eu TT 7: GETINT(75,11,2,'N',Hardware Overview,'##',0,20,retSS,retrieveSS,15,1); 
BM 2I 8: GETINT(75,12,2,'N',Sys Resource, '##',0,20,retSS,retrieveSS,15,1); 
31131 S UPOPTINT(75 713.2, 'N Sys Toning Xray, F 0,20, retSo, retrievess, 15,1); 
31141 10: GETINT(75,14,2,'N',Data Communication, '4/',0,20,retSS, retrieveSS, 15,1); 
ВИТ ШЕ OSGETINT(I75)505 2. N' TAL, ЯН |0,20, гег55,геЕгіеуе55,15,1): 
3116I 12: GETINT(75,16,2, N S SPLICENet Workshop, '//',0,20,retSS,retrieveSS,15,1); 
EI (БЕР СР 5, 23,2, NS Per Call Months, 47 ,0, 12,retSS,retrieveSS,15,1); 
31181 IBS GEDENEMUT5 29 00 Y Site Preps, U , ., ",retSS,retrievesS,15,1); 
3119I End; { CASE 1] 
31201 
БІРТІ IF varSS - screen fieldSS TIEN last fieldSS :- True; 
BIZ2T REPETAS i i Check code in speESS' . Set P varSS" and "actionSS" ) 
5102371 
312471 ( Check to see whether to switch retrieveSS to true } 
SISI IF last_fieldSS AND (not retrieveSS) THEN 
61261 Begin 
BIZ7I retr*eveSS :- True; 
BIST last fielaSS :- False; 
3129I actionSS := staySs; 
ОТ Vaboo 5- 1; 
SIII End 
3132I ELSE 
BISST last fieldSS :- False; 
3134I UNTIL actionSS=exitSS; 
31351 ACCEPT INPUTS; 
BI36I UNTIL answerSS - 'Y'; 
3137I End; ({ Procedure GET LAST SCREEN DATA } 
3138I 
31391 
31401 PROCEDURE CONFIGURE DOCUMENTATION; 
3141I 
31421 {*ЖЖ+ЖЖЖЖЖЖЖЖЖЖЖЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖЖ ЖЖ ЖЖ ЖЖ ЖЖ УЖ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ | 
3143I { This procedure simply uses the repetitive terminal out procedure } 
31441 { MANUAL to list the 4 categories of manuals for the user and asks } 
3145I ( how many of each should be output on the delivery order. Outputs | 
3146І ( аге written to disk via the PRINT DOC or TRNG procedure, } 
31471 { described above. Uses WRITE A LINE for actual writes to disk. } 
31481 (жокжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжужжжжжжжжж и жжжжжжжжжжжжжжж иа +) 
3149I 
3150I 
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31511 Begin { Procedure CONFIGURE_DOCUMENTATION ) 
S521 puer { 1=153 Computer Operations Manual } 
31531 Quantity :- Computer Ops; 
3154I IF Quantity > O THEN PRINT ПОС ОК ТЕМС; 
3IS5T pc: А: { I=154 Systems Programmer Manual } 
215251 Quantity :- Sys Programmer; 
51572 IF Quantity » 0 THEN PRINT DOC OR TRNG; 
31581 ое s { I=155 Hardware Manual } 
31521 Quantity := Hardware Manual; 
3160I IF Quantity > O THEN PRINT DOC OR TRNG; 
Э ТОТИ: Т = ОГ" ( I2156 Programmer Reference Manual } 
31621 Quantity :- Programmer Ref; 
31651 IF Quantity > 0 THEN PRINT DOC OR TRNG; 
3164I COMPUTE SECTION TOTALS ('Training'); 
3165T Mode := Train; 
51661 End; { Procedure CONFIGURE DOCUMENTATION ) 
31671 
3168I 
31691 PROCEDURE CONFIGURE TRAINING; 
ЗОЛ 
31711 (edekeolelelokoolekekekokekolelolokokeolokekokelekoloelololokelolokekelelokokeorokelokolokolokolokokoiololelolelolelelelelelek } 
31721 ( This procedure simply uses the repetitive terminal out procedures } 
31731 (. GROUPS and COURSE to list the 7 categories of courses for the } 
31741 ( user and asks which/how many of each should be output on the ) 
31751 ( delivery order. Outputs are written to disk via the . } 
31761 ( PRINT DOC or TRNG procedure, described above. Uses WRITE A LINE } 
31771 ( for actual writes to disk. } 
31781 (ЖЖЖ КЕ ЖЕЗ ЛЕ ККЖ ЖЕКЕ Жк ак как ак тат а Я 
31791 
3180I Begin (| Procedure CONFIGURE TRAINING ] 
SISTI Case Training Group of 
31821 1: Begin 
21931 Тео а [ I=157 Training Group rg 
3184I Quantity 1, 
21551 PRINT DOC or TRNG; 
31861 Е. 
ЗАВ ЕП“ 
31881 2: Begin 
31691 ае oe; ( 1-158 Training Group ii 
31901 Quantity := 1; 
31911 PRINT DOC or ТЕС; 
SEOAT I AT 25 
31931 Ena; 
31941 3: «Begin 
Sol t= Si; { I=159 Training Сг 
31961 ОЕ =; 
SPOT PRINT DOC or TRNG; 
5 81 ЕЕ №. 
31991 Endi 
32001 4: Begin 
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e201 1 ТНА: ( 1-160 Training Group IV) 
32021 euanbEity:- 1; 
32031 PRINT DOC or TRNG; 
3204I Ends 
52051 к EVI. 44; 
32061 
82071 End; 
32081 IECIT Ys ( I2161 Operator Training Course } 
32091 Quantity := Operator Training; 
32101 IF Operator Training > 0 THEN PRINT DOC or TRNG; 
S2111 Т := 1+1; { I=162 Hardware Overview Course } 
2121 Quantity :- Hardware Overview; 
32131 IF Hardware Overview » 0 THEN PRINT DOC or TRNG; 
3214I IRE; { I=163 System Resource Mgmt Course } 
02151 Quantity := Sys Resource; 
92161 IF Sys Resource > 0O THEN PRINT DOC or TRNG; 
92171 TESI. d { 1=164 Systems Tuning and XRAY Course | 
ва Вт Quantity :- Sys Tuning Xray; 
3 19I IF Sys Tuning Xray >» 0 THEN PRINT DOC or TRNG; 
002201 c= 1 + 1; { I=165 Data Communications Course } 
522171 Quantity :- Data Cammunication; 
0 22I IF Data Communication > 0 THEN PRINT DOC or TRNG; 
02231 ICT 1; { I=166 TANDEM Application Lang Course | 
32241 Quantity :- TAL; 
82251 IF TAL » O THEN PRINT DOC or- TRNG; 
32261 = ит Т { 1=167 SPLICENet WKSHOP } 
32271 Quantity := SPLICENet_ Workshop; 
32281 IF SPLICENet Workshop > 0 THEN PRINT DOC or TRNG; 
32291 COMPUTE SECTION TOTALS (‘Maintenance’); 
32301 Mode := Maint; 
52311 End; { Procedure CONFIGURE TRAINING } 
32321 
52331 
32341 PROCEDURE CONFIGURE MAINTENANCE; 
9235T 
E DELEK O o o aE E E E } 
32371 ( This procedure is used to write-out the three lines required on } 
32381 ( delivery orders for maintenance. Both PM On-Call and On-Call are } 
32391 { written out with Quantity = 1 and all remaining items = 0. The } 
3240I { Maint Months of Emergency Maintenance are loaded into Quantity } 
3241I { field of the output, multipled by the updated emergency } 
32421 ( maintenance rate and then written to disk. The applicable ) 
32431 { uplift rate is written out. All other fields are = Q. ) 
32441 (жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж ) 
3245I 
3246I 
32471 PROCEDURE PRINT MAINT; 


3248I 
3249I 
32501 
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{ Sets Parameters for the three categories to be output on the } 
{ delivery order. Sets MONTHS to 0 and Maint Factor to the } 
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32511 ( emerg maint rate input by the user. Uses WRITE A LINE to } 
32521 { actually write to disk. } 


32531 (жожккжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж ) 


32541 

32551 Begin { FDC Emergency Maint ) 

32561 Maint Months :- 0; 

32571 Maint Factor :- Emerg Maint Rate; 
32581 Extended Price := 0; 

325231 WRITE A LINE; 

32601 End; ( Procedure PRINT MAINT ) 


32611 
32621 i 
32631 Begin { Procedure CONFIGURE_MAINTENANCE } 
32641 и: { 1-168 PM On-Call } 
32651 ( If no items have been selected thus far, do not write maintenance 
32567 line items to delivery order output diskfile. } 
32671 IF (Totals [0, 1] » 0) OR (Totals (|1, 1] > 0) OR {Totals [2 МОО 
3268I (Totals [3, 11» 0) OR {Totals [4, 1] » O0) OR (Totals [5, 11 > 0505 
3269I (Totals [0, 2] » 0) OR (Totals [1, 2] > 0) OR (Totals [2,92] 2 одаи 
32701 (Totals [3, 2] ^» 0) OR (Totals [4, 2] > 0) OR (Totals (5, 2] RO R III 
32711 Begin 
327221] Quantity := 1; 
32731 PRINT MAINT; 
32741 з= ршн |с { 1=169 Skips PM Per-Call Maintenance ) 
82751 ТЕРЕ { I=170 On-Call Maint } 
32761 PRINT MAINT; 
32771 End 
32781 ВЕРЕ: Гео, 
32791 esa) ЕИ { I=171 Skips Per-Call Maintenance } 
32801 = Cae { I=172 Emergency Per-Call Maintenance } 
y = 


328 1T Quantit Per Call Months; 

32821 IF Quantity > 0 THEN PRINT MAINT; 

32831 COMPUTE SECTION TOTALS ('Other'); 
3284I End; ( Procedure CONFIGURE MAINTENANCE ] 
3285I 

3286I 

32871 Begin ( Procedure CONFIGURE COMPONENTS ) 
3288I CONFIGURE HARDWARE; 

32891 CONFIGURE SOFTWARE; 

32901 INITIALIZE LAST SCREEN DATA; 

32911 GET_LAST_SCREEN DATA; 

52921 CONFIGURE DOCUMENTATION; 

32931 CONFIGURE TRAINING; 

32941 | CONFIGURE MAINTENANCE; 

3295 L ENG; { Procedure CONFIGURE COMPONENTS } 
3295 ( Name of work procedures include file } 
3220 

3297 

3298| PROCEDURE SUMMARIZE; 

3299 
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3300| Const 
3301 LF * Char = #10; ( Decimal Value for an ASCII line feed } 
3302 CR : Спаг - #13; ( Decimal Value for an ASCII carriage return ] 
3303 EI : Char = 7; ( Value of ASCII "Control-2Z" end-of-file marker } 
3304 
3305| Var 
3306 System Downtime : Real; 
2207 
3308 
3309| Begin { Procedure SUMMARIZE } 
3310 System Downtime := (((Subtotals [0, 1] + Subtotals [0, 3] + Subtotals [1, 1) 
3311 + Subtotals [1, 3] + Costtable[1).purchprice) /48) 
2912 * System Downtime Component) * 0.0125; 
3313 WRITELN (Diskfile); | 
3314 WRITELN (Diskfile); 
2315 WRITELN (Diskfile, '"NOTES:''); 
3316 WRITELN (Diskfile); 
8317 WRITELN (Diskfile, '"', 'MAINTENANCE OPTION - ', SiteInfo.maint options, '''); 
3318 WRITELN (Diskfile); 
3319 WRITELN (Diskfile,'"', 'MAINTENANCE REPAIR AND RESPONSE - ', 
3320 SiteInfo.maint response, '''); 
3321 WRITELN (Diskfile); 
9 322 WRITELN (Diskfile, 
5423 '"MAINTENANCE REQUIRED FROM END OF NINETY (90) DAY WARRANTY PERIOD."'); 
3324 WRITELN (Diskfile); 
B325 WRITELN (Diskfile, 
3326 '""CARD READER AND CARD READER PUNCH CAPABILITIES TEST REQUIREMENTS ARE WAIVED."'); 
0827 WRITELN (Diskfile); 
3328 WRITELN (Diskfile, '"SYSTEM DOWNTIME CREDIT FACIOR PER HOUR EQUALS: $"', 
3329 purge , INU 1g 1 г IHU 0111 5 System Downtime); 
3330 WRITELN (Diskfile); 
3331 ( кжжжжжжжжжжжжжжжжжжжжжжжжжжижжжжжжжижжжжжжжжижжижижжижж) 
8932 ( * Terminate the .PRN file with a «CR», <LF> and *) 
3333 (* a <Ctrl Z> End Of File Character. =) 
3334 (CARR OO OIC жож жж ж ro OK AC) 
3335 WRITELN (Diskfile, CR, LF, Ctrl 2); 
3336 CLOSE (Diskfile); 
3337 CLOSE (Screenfile); 
3338 TextColor (12); 
3339 Erscr; 
3340 GOTOXY (4, 9); 
3341 WRITELN ('Thank you for using the SPLICE configurer.':58); 
3342 WRITELN; 
3343 WRITELN; 
3344 Шехгсолог (15); | 
3345 WRITELN ('Your output file is called ':48, PRN File Name,'.'); 
3346 WRITELN; 
3347 WRITELN; 
3348 TextColor (11); 
3349 WRITELN ('The output file is ready for import into LOIUS 1-2-3':65); 
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TextColor (15); 

End; { Procedure SUMMARIZE } 

Begin { Main Program 
INITIALIZE; 
CONFIGURE COMPONENTS; 
SUMMARIZE; 

End. 
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Page 1 CONFMOD.PRG Program Listing 
* PROCEDURE CONFMOD.PRG 
* 
* AUTHORS : LCDR EDWARD J. CASE, SC, USN 
* LCDR WINSTON H. BUCKLEY, SC, USN 
* LCDR ROBERT F. BRADO, USN 
* LCDR ROBERT L. BEARD III, SC, USN 
* 
* PURPOSE : PROVIDE THE USER THE OPPORTUNITY TO MODIFY OR REVIEW 
* ALL DATA IN THE SITE CONFIGURATION DATABASE. 
ж 
* INPUT FILES : NONE 
ж 
* OUTPUT FILE : NONE 
* 
* MODULES CALLED : CONFUPD.PRG. CONFPREV.PRG 
ж 
* CALLED BY : MAINMENU. PRG 
* 
* LOCAL VARIABLES: SELEKT 
* 
* DATE LAST TIME MODIFIED ==========> 22 DECEMBER 1985 <========== 
* 
* DISPLAY THE PROCESS MENU TO THE USER AND WAIT FOR THE 
* SELECTION. 
* E 
STORE "1" TO SELEKT 
DO WHILE SELEKT « "3" 
SET COLOR TO W/B, W/B 
CLEAR 
2? FLASH « 'W.CONFMOD/' 
SET CONSOLE OFF 
WAIT TO SELEKT 
SET CONSOLE ON 
* 
ж PROCESS ROUTINE BASED ON THE USER'S SELECTION. 
* 
DO CASE 
* 
Ж CALL THE SITE CONFIGURATION UPDATE PROGRAM. 
CASE SELEKT - "1" 
DO CONFUPD 
ж 
ж CALL THE SITE CONDIGURATION REVIEW PROGRAM. 
CASE SELEKT = "2" 
DO CONFREV 
* 
* RETURN TO THE MAIN MENU PROGRAM. 





ENDCASE 


CAGE SELEKT = "3" 
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* 


ENDDO WHILE SELEKT « "3" 
* 


* RETURN TO THE CALLING PROGRAM 
ж 


КЕТОКМ 
жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


о со м) суол £ CO N — 
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PROCEDURE CONFREV. PRG 
AUTHORS : LCDR EDWARD J. CASE, SC, USN 
LCDR WINSTON H. BUCKLEY, SC, USN 
LCDR ROBERT F. BRADO, USN 
LCDR ROBERT L. BEARD III, SC, USN 
PURPOSE : TO ENABLE THE USER TO REVIEW ANY DATA ELEMENT IN 
THE SITE NAME DATABASE. 
INPUT FILES : CONFIG.DBF INDICES: CONFIG.NDX 
OUTPUT FILES : NONE 
CALLED BY : CONFMOD. PRG 


MODULES CALLED : DELAY.PRG 

GLOBAL VARIABLE: HISITE, LOSITE 

LOCAL VARIABLES: ACCEPT, ANS, CHOICE, ERROR, FIRST REC, LAST REC, 
MADDI, MADD2, MCITY, MCO, MESSAGE, MNAME, MNAMEFL, 
MOPT, MRESP, MSITE, MSTATE, MIYPE, MZIP 

DATE LAST TIME MODIFIED ==========> 23 DECEMBER 1985 <---------- 

CASE SELECTION = 2 REVIEW EXISTING RECORDS 


USE THE SITE NAME (CONFIG) DATABASE USING THE SITE NUMBER INDEX. 


Ж Ж X + X X X % X HH X X X X X X X X X X HH KK © YX X HR KH + 


SET ESCAPE OFF 
SET TALK OFF 


USE CONFIG 

GO TOP 

SET COLOR TO W+/B,W+/B,B 
CLEAR 

ЖИЕЕСЕ() - .Т. THEN 


SET COLOR TO W+/R, W+/R 
@ 13,24 SAY '' The SITE NAME Database is EMPTY! "' 
DO DELAY 
RETURN 
ENDIF 
?? FLASH + "S.SITENAME.SCR/" 
@ 24,0 SAY SPACE (80) 
SET COLOR TO R«/ ,R«/ 
@ 3,23 SAY ' SITE ADDRESS DATA REVIEW FORMAT ' 
ENSRE “Enter OO to start at TOF, 99 to start at EOF, or a site ' +; 
‘number between ' + LOSITE + ' and ' + HISITE + ' ' TO MESSAGE 


49} SET COLOR TO /W, /W 
50} @ 24,0 SAY MESSAGE 
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DO WHILE .T. 
SET COLOR TO /BR, /BR 
STORE '00' TO MSITE 
@ 7,25 GET MSITE PICT '99' 
READ 
IF .NOT. ((MSITE >= '00' .AND. MSITE «s HISITE) .OR. MSITE - '99°) 


SET COLOR TO W/B, W/B 

@ 24,0 SAY SPACE(80) 

SET COLOR TO W+/R, W+/R 

STORE ' Response must be between ' + LOSITE + ' and ' *; 
| HISITE + ', Zero (00) or 99 ' TO ERROR 

@ 24,13 SAY ERROR 

DO DELAY 

SET COLOR TO /W, /W 

@ 24,0 SAY MESSAGE 


ELSE 


LOOP 
IF (MSITE = '00' .OR. MSITE - '99') THEN 
USE CONFIG 
IF MSITE - '00' THEN 
GO BOTTOM 
STORE RECNO() TO LAST REC 
GO TOP 
STORE RECNO() TO FIRST REC 
ELSE 
GO TOP 
STORE RECNO() ТО ЕЖЕЗЛЕКЕС 
GO BOTTOM 


STORE RECNO() TO LAST REC 
ENDIE MSUTE = "00" 


БАТ 

ELSE 
USE CONFIG INDEX CONFIG.NDX 
GO TOP 
STORE RECNO() TO FIRST REC 
GO BOTTOM 
STORE RECNO() TO LAST REC 
FIND &MSITE 
IF HOF() = .T. THEN 


SET COLOR TO W/B, W/B 
@ 24,0 SAY SPACE(80) 
STORE " Мо records exist for site number " + МЅІТЕ +; 
“o try again TOCERRGR 
@ 24,16 SAY ERROR 
SET COLOR TO W«/R, W«/R 
DO; DELAY 
SET COLOR TO /W, /W 
@ 24,0 SAY MESSAGE 
LOOP 
ELSE 
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101 EXIT 
18021 - ОВ = f. 
103 ВВ ЕЕ ОА, В. МӘТТЕ = 99”) 
104 ENDIF 
feo) ENDDO WHILE .T. 
106| * 


107| SET COLOR TO W/B, W/B 
108| 8 24,0 SAY SPACE(80) 


MUS * 

io, DO WHILE „т. 

111 SET COLOR TO R+/B, R+/B 

112 @ 5,47 SAY RECNO() PICT "999" 

ПИЗ SET COLOR TO /BR, /BR 

114 @ 7,25 SAY SITENO PICT "99" 

115 ВОВ Асы СЕ РОТ Тіп в а ре IIIIIC 
116 ШӘРЛЕР БАУ ӘӨТТЕСО РІСІТГІИІГІТІТІІТІГІТІТІТІ" 

ПИ 7 0.25 SAY SITENAMEPB PICT тиге га еттт еерт" 
118 Go | BE SEN Ар ЕЕ ете агита ІНІ! 14 
119 ПА ли ОТЕЛЮ РТ ЕЕ 
120 ЕЕ ТЕТ РО Е 
121 @ 14,25 SAY SITESTATE PICT "!!"' 

22 8 15,25 SAY SITEZIP PICT "9999999999" 

123 @ 16,25 SAY SITETYPE PICT "1111" 

124 @ 17,35 SAY MAINTOPT PICT "1111" 

125 @ 18,35 SAY MAINTRESP PICT "!" 

126 SET COLOR TO R+/B, R+/B 

127 STORE "N" TO CHOICE 

128 mee?) 66 GE! CHOICE PICT 515 

129 READ | 

BO * 

131| Ж ENSURE THAT THE USER'S PROMPT IS EITHER "N", UP"! OR "X" 

NS * 

133 DO WHILE .NOT. (CHOICE = "N" .OR. CHOICE = "P" ,OR. CHOICE - 'x') 
134 ШЕШЕ (CHOICE = N" OR. CHOICE = "Р" ОБ. CHOICE s "X") THEN 
135 SET COLOR TO W+/R,W+/R 

136 Q 24,23 SAY " Response must be either N, Por X " 

137 DO DELAY 

138 STORE "М" TO CHOICE 

139 ENDIF 

140 БЕР COLOR JO R+/B, R+/B 

141 Qa 22,68 GET CHOICE PICT "i" 

142 READ 

143 ENDDO 

144| * 

145| * SKIP 1O THE NEXT RECORD TO BE REVIEWED 

146| ж 

147 IF CHOICE = "N'" THEN 

148 IF RECNO () = LAST REC THEN 

149 GO TOP E 

150 ELSE 
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151 SKIP 
52 ENDIF 
153 ENDIF 
154, * 
1551 * SKIP TO THE PREVIOUS КЕСОКО Шер ВЕТ НЕ IED ED 
DE Т 
{о IF CHOICE - "P" THEN 
158 IF RECNO() - FIRST REC THEN 
199 GO BOTTOM 
160 ELSE 
161 .SKIP -1 
162 ENDIF 
163 ENDIF 
164| * 
1651 * USER HAS DECIDED TQ EXIT THE REVIEW 
Шы 
167 TP CHOICE = XxX 
168 ЕХІТ 
169 ENDIF 
О" 
П ENDDO WHITE P I 
(Два 


173: * RETURN TO CALLING PROGRAM. 
174| * 


Page 107 


175, RELEASE ALL LIKE M*, ACCEPT, ANS, CHOICE, ERROR, FIRST REC; BASTOGBEG 


176| CLOSE DATABASES 
1710 RETURN 


178 ARR KICK ROOK OK RIO IR OOK RKO OK KK OK k kk kkk kk kk kkk kkk kkk k kkk 
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PROCEDURE CONFUPD.PRG 

AUTHORS : LCDR EDWARD J. CASE, SC, USN 
LCDR WINSTON H. BUCKLEY, SC, USN 
LCDR ROBERT F. BRADO, USN 
LODRESPOBSRISBOSBEANDOTTPIS SC, USN 

PURFOSE : TO ENABLE THE USER TO MODIFY ANY DATA ELEMENT IN 
THE SITE NAME DATABASE. 


INPUT FILES : CONFIG.DBF INDICES: CONFIG.NDX 

OUTPUT FILES : CONFIG.DBF, INDICES: CONFIG.NDX 

MODULES CALLED : DELAY. PRG 

CALLED BY : CONFMOD. PRG 

GLOBAL VARIABLE: HISITE, LOSITE 

LOCAL VARIABLES: ACCEPT, ANS, CHOICE, ERROR, FIRST REC, LAST REC, 
MADD1, MADD2, MCITY, MCO, MESSAGE, MNAME, MNAMEFL, 
MOPT, MRESP, MSITE, MSTATE, MIYPE, MZIP, SAVEIT 


DATE LAST TIME MODIFIED ==========> 23 DECEMBER 1985 <========== 


BEGIN 
CASE SELECTION = 1 UPDATE EXISTING RECORDS 


USE THE SITE NAME (CONFIG.DBF) DATABASE USING THE SITE NUMBER INDEX. 


X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X o X 


SET ESCAPE OFF 
SET SCOREBOARD OFF 
SET TALK OFF 
USE CONFIG 
GO TOP 
SEI COLOR ТО W+/B, W+/B, B 
CLEAR 
ШЕЕ) = .T. THEN 
SET COLOR TO W+/R, W+/R 
@ 13,24 SAY " Тһе SITE NAME Database is EMPTY! " 
ЕШ БЕГАҮ 
RETURN 
ENDIF 
?? FLASH « "S.SITENAME.SCR/" 
@ 24,0 SAY SPACE(80) 
| SET COLOR TO В+/ ,R«/ 
@ 3,23 SAY ' SITE ADDRESS DATA UPDATE FORMAT ' 
Sore Enter 00 to start at TOF, 99 to start at BOF, or a site ' +; 
‘number between ' + LOSITE + ' and ' + HISITE + ' ' TO MESSAGE 
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ӘЛ| SEY COLOR TO Ра 
521 а 24,0 SAY MESSAGE 
53| DO WHILE .T. 


54 SET COLOR TO /BR, /BR 

55 STORE '00' TO MSITE 

56 @ 7,25 GET MSITE PICT '99' 

57 READ 

58 IF .NOT. ((MSITE >= '00' .AND. MSITE <= HISITE) „ОВ. MSITE = '99') 
59 SET COLOR TO W/B, W/B 

60 @ 24,0 SAY SPACE(80) 

61 SET COLOR TO W+/R, W+/R . 
62 STORE ' Response must be between ' « LOSITE + ' and ' +; 
63 HISITE + ', Zero (00) or 99 ‘ TO ERROR 
64 @ 24,13 SAY ERROR 

65 DO DELAY 

66 SET COLOR TO /W, М 

67 @ 24,0 SAY MESSAGE 

68 LOOP 

69 ELSE 

70 IF (MSITE = '00' „ОВ. MSITE = '99') THEN 

71 USE CONFIG U 

2 IF MSITE - '00' THEN 

73 GO BOTTOM 

74 STORE RECNO() TO LAST REC 

75 СО TOP n 

76 STORE RECNO() TO FIRST REC 

71 ELSE 

78 GO TOP 

79 STORE RECNO() TO FIRST REC 

80 GO BOTTOM 

81 STORE RECNO() TO LAST REC 

82 ENDIF MSITE = '00' i 

83 EXIT 

84 ELSE 

85 USE CONFIG INDEX CONFIG.NDX 

86 GO TOP 

87 STORE RECNO() TO FIRST REC 

88 GO BOTTOM 

89 STORE RECNO() TO LAST REC 

90 FIND &MSITE 

91 IPO POP (PS то THEN 

92 SET COLOR TO W/B, W/B 

93 @ 24,0 SAY SPACE(80) 

94 STORE " No records exist for site number " + MSITE +; 
95 "try again TO ERROR 

96 @ 24,16 SAY ERROR 

97 SET COLOR TO W+/R, W+/R 

98 DO DELAY 

99 SET COLOR DO awe /W 
100 @ 24,0 SAY MESSAGE 
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101 

102 
103 
104 
105 
106 
107 
108 
199 
110 
111 

112 
113 
114 
115 
116 
ШІ? 
118 
119 
120 
121 

122 
123 
124 
125 
126 
127 
128 
129 
130 
E 

22 
133 
134 
135 
136 
137 
138 
29 
140 
141 

142 
143 
144 
145 
146 
147 


148 | 


149 
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LOOP 
ELSE 
EXIT 
ЕШБЕР ВОГ. 
Hite (MSith = 00 ОВ. МЕ = 99”) 
ENDIF 
ENDDO WHILE .T. 


* 


SET COLOR TO W/B, W/B 
@ 24,0 SAY SPACE(80) 


ж 


STORE SPACE(16) + 'Press "Page Down" key to terminate record update' +; 


SPACE(16) TO MESSAGE 


EIORE 1 TO INTRO 
PO WHILE .T. 


* 


SET COLOR TO /W, /W 
@ 24,0 SAY MESSAGE 


INFORM THE USER OF HOW TO TERMINATE THE UPDATE OF A RECORD 


IF INTRO = 1 THEN 
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STORE 0 TO INTRO 
2? FLASH + "W.CONFUPD/"' 
SET CONSOLE OFF 
WAIT TO ANS 
SET CONSOLE ON 
ENDIF 
ж о 
* STORING THE OLD RECORD TO A WORK RECORD AREA. THE M PREFIX 
* INDICATES MEMORY VARIABLES DISTINGUISHING THEM FROM THEIR 
* CORRESPONDING DATABASE FIELDS. | 
ж 
STORE SITENO TO MSITE 
STORE SITENAME ‘TO MNAME 
STORE SITECO TO MCO 
STORE SITENAMEFL TO MNAMEFL 
STORE SITEADD1 TO MADD1 
STORE SITEADD2 ТО МАрр2 
STORE SITECITY TO MCITY 
STORE SITESTATE TO MSTATE 
STORE SITEZIP TO MZIP 
STORE SITETYPE ЧТО МТҮРЕ 
STORE MAINTOPT ТО МОРТ 
STORE MAINTRESP TO MRESP 


SET COLOR TO R+/B, R+/B 
@ 5,47 SAY RECNO() PICT "999" 


SET COLOR TO /BR, /BR 


8 7,25 SAY MSIWE PICT "99" 
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151 @ 8,25 GET MNAME РТСТ "| ъзъпъглагеггегаветтгтътга отит е тглесеит его е ИИН 
152 @ 9,25 GET MO PICT "nro rro HE TNT 
153 @ 10,25 СЕТ ММАМЕРЇ, РЇСТ "!!а г ггоревотесист бо га рум его 
154 @ 11,25 СЕТ МАРр1 РЇСТ "їз ТН НИНИН 
155 @ 12,25 СЕТ МАОО2 РТСГ ИЕР ee 
156 8 13,25 СЕТ МСІТУ РТСТ ИЕР ро та 
157 а 14.25 GET MSTATE PICT 1i 
158 @ 15,25 GET MZIP PICT "9999999999" 
159 Q 16,25 SAY MTYPE PICT ":1:11" 
160 @ 17,35 СЕТ МОРТ РСТ "тү" 
161 @ 18,35 СЕТ МВЕЅР РІСТ "!" 
162 READ 
Шо ет 
164| * CHECK TO SEE IF ANY RECORD WAS CHANGED 
165| * 
166 SET COLOR TO W/B, W/B 
167 @ 24,0 SAY SPACE(80) 
168 STORE 1 TO SAVEIT 
169 IF (SITENO = MSITE) 
170 IF (SITENAME = MNAME) 
171 IF (SITECO = MCO) 
172 IF (SITENAMEFL = MNAMEFL) 
173 IF (SITEADD1 = MADD1) 
174 IF (SITEADD2 = MADD2) 
175 IF (SITECITY = MCITY) 
176 IF (SITESTATE = MSTATE) 
177 IF (SITEZIP = MZIP) 
178 IF (SITETYPE = MTYPE) 
179 IF (MAINTOPT = MOPT) 
180 IF (MAINTRESP = MRESP) 
181 STORE 0 TO SAVEIT 
182 ENDIF 
183 ENDIF 
184 ENDIF 
185 ENDIF 
186 ENDIF 
187 ENDIF 
188 ENDIF 
189 ENDIF 
190 ENDIF 
191 ENDIF 
192 ENDIF 
193 ENDIF 
1941 * 
195| * ASK THE USER IF HE/SHE DESIRES TO ACCEPT THE CHANGES, ONLY IF ANY 
196| * CHANGES WERE MADE 
ТОШЕ 
198 IF SAVEIT - 1 THEN 
199 SET COLOR TO W+/B, W+/B 
200 @ 20,12 SAY "Do you want to accept the changes? (Yes or No):" 
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201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
E 
212 
213 
214 
215 
216 
21 
218 
219 
220 
221 
224 
223 
224 
225 


227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
497 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
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SET COLOR TO R+/B, R+/B 
@ 20,49 SAY "Y" 
@ 20,56 SAY "М" 
STORE "N'' TO ACCEPT 
@ 20,62 GET ACCEPT PICT "!" 
READ 
* 
f ENSURE THAT THE USER'S PROMPT IS EITHER "Y" OR "М" 
* 
DO WHILE .NOT. (ACCEPT = "М" .OR. ACCEPT = "У") 
TF .NOT. (ACCEPT = "М" .OR. ACCEPT = "Y') THEN 
SET COLOR TO W/B, W/B 
@ 24,0 SAY SPACE(80) 
SET COLOR TO W+/R,W+/R 
@ 24,24 SAY " Response must be either N or Y " 
DO DELAY 
STORE "N" TO ACCEPT 
ENDIF 
SET COLOR TO R+/B,R+/B 
О. 62 CET ACCEPT PICT 1" 
READ 
ENDDO 
@ 20,10 SAY SPACE (60) 
* 
* STORING THE CORRECTED EDIT FIELDS FROM THE WORK AREA. 
ж 
IF ACCEPT = "Y" THEN 
REPLACE SITENO WITH MSITE 
REPLACE SITENAME WITH MNAME 
REPLACE SITECO WITH MCO 
REPLACE SITENAMEFL WITH MNAMEFL 
REPLACE SITEADD1 WITH MADD! 
REPLACE SITEADD2 WITH MADD2 
REPLACE SITECITY WITH MCITY 
REPLACE SITESTATE WITH MSTATE 
REPLACE SITEZIP WITH MZIP 
REPLACE SITETYPE WITH MTYPE 
REPLACE MAINTOPT WITH MOPT 
REPLACE MAINTRESP WITH MRESP 
ENDIF 
ENDIF 
ж 
SET COLOR TO R+/B,R+/B 


* 


STORE "N" TO CHOICE 


по Oo Get Chores PICT "1" 


READ 


ENSURE THAT THE USER'S PROMPT IS EITHER "N", "p" OR "x" 
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PoR ATLE -NOT (CHOICE = "М" „ОВ. CHOICE s "pP" .OR. CHOICE s "x") 
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281 IF .NOT. (CHOICE = "N'" .OR. CHOICE = "P" „ОВ. СНОТСЕ = UX") THEN 
252 SET COLOR TO W/B, W/B 
253 @ 24,0 SAY SPACE(80) 

254 SET COLOR TO W+/R, W+/R 

255 @ 24,23 SAY " Response must be either N, P or X " 
256 DO DELAY 

257 STORE '"N" TO CHOICE 

258 ENDIF 

259 SET COLOR TO R+/B, R+/B 

260 а 22.68 GET CHOICE Pier 1^ 

261 READ 

262 ENDDO 

26317 

264| *. SKIP TO THE NEXT RECORD TO ВЕ БЕУ ЕЗЕР 
2051 + 

266 IF CHOICE = "М" THEN 

267 IF RECNO () = LAST REC THEN 

268 СО ТОР 

269 ELSE 

270 SKIP 

27 ENDIF 

212 ENDIF 

2731: 

274| * SKIP TO THE PREVIOUS RECORD TO BE REVIEWED 
2757 

276 IF CHOICE = "P" THEN 

D IF RECNO() = FIRST REC THEN 

279 СО БОТТОМ 

279 ELSE 

280 SKIP -1 

281 ENDIF 

282 ENDIF 

Zool) 

284| * “USER HAS DECIDED TO EXIT THE REVIEW 
2851 + 

286 ie CHOICE. =x? 

287 EXIT 

288 ENDIF 

289| * 

290| ENDDO WHILE .T. 

2911 * 

292| * RETURN TO CALLING PROGRAM. 

2937 

294| RELEASE ALL LIKE M*, ACCEPT, ANS, CHOICE, ERROR, FIRST REC, LAST ВЕС, ЭВМ 
295| CLOSE DATABASES 

296| RETURN 

297 | жжжкжжжкжжжжкжжжжкжжжжжжжжккжжжжжжжжжжжжжжжкжккжжжжкжжжккжжжжж 
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PROCEDURE DATERPTS.PRG 


AUTHORS : LCDR EDWARD J. CASE, SC, USN 


LCDR WINSTON H. BUCKLEY, SC, USN 
LCDR ROBERT F. BRADO, USN 
LCDR ROBERT L. BEARD III, SC, USN 


PURPOSE SSPROVEDESIHISSUSER ASSEERECLION OP EFFECIIVE DELIVERY 


ORDER DATE LEVEL REPORTS. 


INPUT FILES : NONE 
OUTPUT PILES : NONE 
CALLED BY : REPORCMD.PRG 


MODULES CALLED : EQPDTPRC.PRG, EQPDTNPC.PRG, SNODIRPT.PRG 

LOCAL VARIABLES: DATERPTS 

IEEE See ТҮЛЕТЕТЕТ) ==========> 16 DECEMBER 1985 <========== 
DISPLAY THE PROCESS MENU TO THE USER AND WAIT FOR THE SELECTION. 


TORE "1" TO DATERPTS 


DO WHILE DATERPTS « ''4" 


ж ж x< 


x * 





SET COLOR TO W/B, W/B, B 
CLEAR 

?? FLASH + "W.DATERPTS/" 
SET CONSOLE OFF 

WAIT TO DATERPTS 

SET CONSOLE ON 


PROCESS ROUTINE BASED ON THE USER'S SELECTION. 


DO CASE 


CALL THE EQUIPMENT EFFECTIVE DELIVERY ORDER DATE LEVEL REPORT 
WITH UNIT COST PROGRAM, 
CASE DATERPTS = "1" 

DO EQPDTPRC 


CALL THE EQUIPMENT EFFECTIVE DELIVERY ORDER DATE LEVEL REPORT 
WITHOUT UNIT COST PROGRAM. 
CASE DATERPTS = "2" 

DO EQPDTNPC 


CALL THE SERIAL NUMBER EFFECTIVE DELIVERY ORDER DATE LEVEL REPORT. 


CASE DATERPTS = "3" 
DO SNODTRPT 
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ж 


= RETURN TO THE SPLICE REPORTING LEVEL MENU. 


CASE DATERPTS = "4" 
ж 


ENDCASE 
ж 


ENDDO (WHILE DATERPTS = "4") 
* 


* RETURN TO THE CALLING PROGRAM 


ж 


RETURN 
ЖЖ ЖЖЖ ЖЖ ЖЖЖ ЖЖ ЖЖ ЖЖ ЖЖЖЖЖ ЖЖ ЖЖ ЖЖЖЖЖ ЖЖЖЖЖЖЖЖ ЖЖ Ж ЖЖ ЖЖЖ Ж ЖЖЖ ЖЖЖ ЖЖ Ж ЖЖ ЖЖЖЖЖЖЖЖЖЖЖЖ ЖЖ Ж 
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* PROCEDURE DELAY .PRG 
* 
* AUTHORS : LCDR EDNARD J. CASE, SC, USN 
Б LCDR WINSTON H. BUCKLEY, SC, USN 
* LCDR ROBERT J. BRADO, USN 
Ж LCDR ROBERTI ZA BEARD III; SC, USN 
* 
* PURPOSE : TO PROVIDE A SHORT DELAY AFTER THE DISPLAY OF AN 
Ж ERRORSMESSAGE TO THE USER SUFFICIENT TIME TO READ 
* THE MESSAGE. 
* 
> INPUT FILES : NONE 
ж 
ESXOUTPUT FILES : NONE 
* 
* CALLED BY : SELECTOR.PRG, MAINMENU.PRG, CONFREV.PRG, CONFUPD.PRG 
* | 
* LOCAL VARIABLES: DELAY 
ж 
* DATE LAST TIME MODIFIED .==========> 18 DECEMBER 1985 <---------- 
ж 


STORE 1 TO DELAY 
DO WHILE DELAY « 60 
STORE DELAY + 1 TO DELAY 
ENDDO DELAY < 60 
* 


* CLEAR OUT THE ERROR MESSAGE 
* 


SET COLOR TO W+/B, W+/B 
@ 24,0 SAY SPACE (80) 
* 


* RETURN TO THE CALLING PROGRAM 
+ . 


RETURN 
CR CORK ORK ROR KK RK KK OK ok KK 
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DISPLAY THE PROCESS MENU TO THE USER AND WAIT FOR THE 


Page 1 DESPMOD.PRG Program Listing 
* PROCEDURE DESPMOD.PRG 
* 
* AUTHORS : LCDR EDWARD J. CASE, SC, USN 
Ж LCDR WINSTON H. BUCKLEY, SC, USN 
T LCDR ROBERT F. BRADO, USN 
* LCDR ROBERT L. BEARD III, SC, USN 
* 
* PURPOSE : PROVIDE THE USER THE OPPORTUNITY TO MODIFY ОК БЕЛІ 
t ALL DATA IN THE DESCRIPTION DATABASE. 
* 
* INPUT FILES : NONE 
* 
OUTPUT FICE : NONE 
ж 
* CALLED BY : MAINMENU.PRG 
ж 
* MODULES CALLED : DESPPUPD.PRG, DESPPREV.PRG, DELAY.PRG 
ж 
* LOCAL VARIABLES: SELEKT 
* 
* DATE LAST TIME MODIFIED ==========> 22 DECEMBER ]9 y 
S 
ж 
ж 
* 


STORE "1" TO SELEKT 
DO WHILE SELEKT < "3" 
SET COLOR TO W/B, W/B 


CLEAR 


?? FLASH + "W.DESPMOD/" 


SET CONSOLE OFF 


WAIT TO SELEKT 
SET -CONSOLE ON 


* PROCESS ROUTINE BASED ON THE USER'S SELECTION. 


DO CASE 


5 CALL THE DESCRIPTION UPDATE PROGRAM. 
АЕ Е E 
DO DESPPUPD 


* CALL THE DESCRIPTION REVIEW PROGRAM. 
CASE SELEKT = "2" 
DO DESPPREV 


* RETURN TO THE MAIN MENU PROGRAM. 
CASE SELEKT = "3" 


ENDCASE 
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ж 
ENDDO (WHILE SELEKT = "3") 
ж 


* RETURN TO THE CALLING PROGRAM 
ж 
RETURN 
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57 | жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
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PROCEDURE DESPPREV. PRG 

AUTHORS ; LCDR EDWARD J. CASE, St, Us) 
LCDR WINSTON H. BUCKLEY, SC, USN 
LCDR ROBERT F. BRADO, USN 
LCDR ROBERT L. DBEARD III ЕПТЕП 

PURPOSE : TO ENABLE THE USER TO REVIEW ANY DATA ELEMENT IN 
THE DESCRIPTION DATABASE. 


INPUT FILES : DESCRIP.DBF INDICES: DESCRIP.NDX 
OUTPUT FILES : DESCRIP.DBF, INDICES: DESCRIP.NDX 

MODULES CALLED : DELAY. PRG 

CALLED BY : DESPMOD. PRG 

GLOBAL VARIABLE: LOFNUM, HIFNUM 

LOCAL VARIABLES: ACCEPT, ANS, CHOICE, ERROR, FIRST REC, LAST REC, 


MBMAINT, MCLIN, MDESCRIP, MESSAGE, MFDCMODL, 
MFEAT, MMODELNO, MICOMP 


DATE LAST TIME MODIFIED ==========> 23 DECEMBER 1985 Есе = = SS 
BEGIN 
CASE SELECTION = 2 REVIEW EXISTING RECORDS 


ж 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
* USE DESCRIPTION DATABASE USING THE FEATURE NUMBER INDEX. 
* 
SET ESCAPE OFF 
SET TALK OFF 
USE DESCRIP 
GO TOP 
SET COLOR TO W+/B, W+/B, B 
CLEAR 
т ВЕ И зо, Ша THEN 

SET COLOR TO W+/R, W+/R 

@ 13,17 SAY " The EQUIPMENT ‘DESCRIPTION Database is EMPTY! " 

DO DELAY 

RETURN 
ENDIF 
?? FLASH + "S.DESCRIPT.SCR/" 
@ 24,0 SAY SPACE(80) 
@ 2,39 SAY "REVIEW" 
STORE ' Enter 00 to start at TOF, 99 to start at EOF, or a six dl M 

'feature number ' TO MESSAGE 

SET COLOR TO /W, /W 


50| Q 24,0 SAY MESSAGE 
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DO WHILE .T. 
SET COLOR TO /BR, /BR 
STORE '00 ' ТО МЕЕАТ 
@ 6,45 GET MFEAT PICT '999999' 
READ 
IF .NOT. ((MFEAT >= LOFNUM .AND. MFEAT <= HIFNUM) .OR.; 


МЕЕАТ = '00 ' .OR. MFEAT - '99 Т) 

SET COLOR TO W/B, W/B 

@ 24,0 SAY SPACE(80) 

SET COLOR TO W+/R, W+/R 

STORE ' Response must be between ' + LOFNUM + ' and ' +; 
HIFNUM + ', Zero (00) or 99 ' TO ERROR 

@ 24,8 SAY ERROR 

DO DELAY 

SET COLOR TO /W, /W 

@ 24,0 SAY MESSAGE 


LOOP 
ELSE 
IF (MFEAT = '00 ' .ОВ. МЕЕАТ = '99 ') THEN 
USE DESCRIP 
IF MFEAT = '00 ' THEN 
GO BOTTOM 
STORE RECNO() TO LAST REC 
GO TOP 
STORE RECNO() TO FIRST_REC 
ELSE 
IF MFEAT = '99 ' THEN 
GO TOP 
STORE RECNO() TO FIRST REC 
GO BOTTOM 


STORE RECNO() TO LAST REC 
ENDIF MFEAT - '99  ' 
ENDIF MFEAT - "00  ' 
STORE FEATURENO TO MFEAT 


EXIT 

ELSE 
USE DESCRIP INDEX DESCRIP.NDX 
GO TOP 
STORE RECNO() TO FIRST REC 
GO BOTTOM 
STORE RECNO() TO LAST REC 
FIND &MFEAT 
IESUS T THEN 


SET COLOR TO W/B, W/B 

@ 24,0 SAY SPACE(80) 

SET COLOR TO W+/R, W+/R 

STORE " Мо record exists for feature number ' +; 
MFEAT + ', try again ' TO ERROR 

@ 24,12 SAY ERROR 

DO DELAY 
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101 SET COLOR TO /W, /W 
102 @ 24,0 SAY MESSAGE 
103 LOOP 
104 ELSE 
105 EX cE 
106 ENDIF BOF() = .T. 
107 ENDIF (MFEAT = '00 ' .OR. MFEAT = '99 E 
108 ENDIF 
109| ENDDO WHILE .T. 
110| * 


111| SET ŒLOR ТО W/B, W/B 

112] @ 24,0 SAY SPACE (80) 
113! @ 20,20 SAY “To view this field, enter the update mode. 
1141 ГО WHILE .T. 


115 SET COLOR TO R+/B, R+/B 

116 à 4,46 SAY RECNO() PICT "99999" 

117 SET COLOR TO /BR, /BR 

118 @ 6,45 SAY FEATURENO PICT "999999" 

119 @ 8,45 SAY CLIN PICT "9999" 

120 @ 10,45 САУ DESCIPT PICT “titrritrpitrrarirrraan 
121 a 12,45 SAY MODELNO PICT '"::1::1:101111" 

122 @ 14,45 SAY FDCMODEL PICT "ПІТІГІГІІІГІТІІ 

12:3 a 16,45 SAY TYPECOMPON PICT "!" |. 

124 @ 18,45 SAY BASEMAINT PICT "9999.99" 

125 SET COLOR TO R+/B, R+/B 

126 STORE "М" TO CHOICE 

127 Q 22.67 CET CHOE PICT AIS 

128 READ 

129| * 

130| * ENSURE THAT THE USER'S PROMPT IS EITHER "М", "Р" ОВ "Х" 
131| * 

132 DO WHILE .NOT. (CHOICE = "N" „ОВ. CHOICE - РР OR. TOKE 
133 IF .NOT. (CHOICE = "N" .OR. CHOICE = "Р" „ОВ. CHOICE = 
134 SET COLOR TO W+/R, W+/R 

135 a 24,23 SAY " Response must be either N, Por X " 
136 DO DELAY 

137 STORE "N" TO CHOICE 

138 ENDIF 

139 SET COLOR TO R+/B, R+/B 

140 В CEF CHOICE PT i 

141 READ 

142 ENDDO 

L 

144| * SKIP TO THE NEXT RECORD TO BE REVIEWED 

145| * 

146 IF CHOICE = "М" THEN 

147 IF RECNO () = LAST REC THEN 

148 СО ТОР 

149| ELSE 

150| SKIP 
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ENDIF 
ENDIF 


TO THE PREVIOUS RECORD TO BE REVIEWED 


IF CHOICE - "P" THEN 
IF RECNO() = FIRST REC THEN 
GO BOTTOM 
ELSE 
SKIP -1 
ENDIF 
ENDIF 


USER HAS DECIDED TO EXIT THE REVIEW 
IF CHOICE = "x" 


EXIT 
ENDIF 


ENDDO WHILE .T. 


* 
* 


* 


RETURN TO CALLING PROGRAM. 


RELEASE ALL LIKE M*, CHOICE, ERROR, FIRST REC, LAST REC 
CLOSE DATABASES 


RETURN 
жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
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PROCEDURE DESPPUPD. PRG 

AUTHORS : LCDR EDWARD J. CASE, SC, USN 
LCDR WINSTON H: BUCKLE ОС ЕПС 
LCDR ROBERT F. BRADO, USN 
LCDR ROBERT L. BEARD III, SC, USN 

PURPOSE : TO ENABLE THE USER TO MODIFY ANY DATA ELEMENT IN 
THE DESCRICPTION DATABASE. 


INPUT FILES : DESCRIP.DBF INDICES: DESCRIP .NDX 
OUTPUT FILES : DESCRIP.DBF, INDICES: DESCRIP.NDX 
MODULES CALLED : DELAY .PRG 

CALLED BY : DESPMOD.PRG 

GLOBAL VARIABLE: LOFNUM, HIFNUM 


LOCAL VARIABLES: ACCEPT, ANS, CHOICE, ERROR, INTRO, MBMAINT, MCLIN, 
MDESCRIP, MESSAGE, MFDCMODL, MFEAT, MMODELNO, MICOMP 


DATE LAST TIME MODIFIED zzzz-zz-zz--»^ 23 DECEMBER 1985 <========== 


BEGIN 
CASE SELECTION = 1 UPDATE EXISTING RECORDS 


USE DESCRIPTION DATABASE USING THE FEATURE NUMBER INDEX. 


x % % 3X X H X X* HH HH HM X* X X % X % X X X X X X * HM HN % + 


SET ESCAPE OFF 
SET TALK OFF 


USE DESCRIP 

GO TOP 

SET COLOR TO W«/B, W«/B, В 
CLEAR 

ТЕ Вот THEN 


SET COLOR TO W+/R, W«/R 
a 13,17 SAY " The EQUIPMENT DESCRIPTION Database is EMPTY! " 
DO DELAY 
RETURN 
ENDIF 
?? FLASH + "S.DESCRIPT.SCR/" 
@ 24,0 SAY SPACE(80) 
@ 2,39 SAY "UPDATE" | 
STORE ' Enter 00 to start at TOF, 99 to start at EOF, or a six digito 
'feature number ' TO MESSAGE 
SET COLOR TO /W, /W 
à 24,0 SAY MESSAGE 
DO WHILE .T. 
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SET COLOR TO. /BR, /BR 


STORE '00 ' ТО МЕЕАТ 

@ 6,45 GET MFEAT PICT '999999' 

READ 

IF .NOT. ((MFEAT >= LOFNUM .AND. MFEAT <= HIFNUM) .OR.; 
MFEAT = '00 ' OR. MFEAT = '99 ") 


SET COLOR TO W/B, W/B 

@ 24,0 SAY SPACE(80) 

SET COLOR TO W+/R, W+/R 

STORE ' Response must be between ' + LOFNUM + ' and ' +; 
HIFNUM + ', Zero (00) or 99 ' TO ERROR 

@ 24,8 SAY ERROR 

DO DELAY 

SET COLOR TO /W, /W 

@ 24,0 SAY MESSAGE 


LOOP 
ELSE 5 ' 
IF (MFEAT = '00 ' .OR. MFEAT - '99 ') THEN 
USE DESCRIP 
IF MFEAT = '00 ' THEN 
GO BOTTOM 
STORE RECNO() TO LAST REC 
GO TOP 
STORE RECNO() TO FIRST REC 
ELSE : 
IF MFEAT - '99 ' THEN 
GO TOP 
STORE RECNO() TO FIRST REC 
GO BOTTOM 


STORE RECNO() TO LAST REC 
ENDIF MFEAT = '99 
ENDIF MFEAT = '00 
STORE FEATURENO TO MFEAT 


EXER 

ELSE 
USE DESCRIP INDEX DESCRIP.NDX 
GO TOP 
STORE RECNO() TO FIRST REC 
GO BOTTOM 
STORE RECNO() TO LAST REC 
FIND &MFEAT 
IF EOF() - .T. THEN 


SET COLOR TO W/B, W/B 

@ 24,0 SAY SPACE(80) 

SET COLOR TO W+/R, W+/R р 

STORE ' No record exists for feature number ' +; 
МҒЕАТ + ', try again ' 10 ERROR 

Q 24,12 SAY ERROR 

DO DELAY 

SET COLOR ЧО /W, /W 
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101 
102 
103 
104 
105 
106 


107 


108 
109 
110 
К 
142 
Е 
114 
115 
116 
Е 
118 
115 
120 
121 
122 
123 
124 
125 
126 
ШІ 
128 
129 
130 
133 
182 
132 
134 
135 
136 
1357 
1539 
139 


141 
142 
143 
144 
145 
146 
147 | 
148 
149 | 
150 


@ 24,0 SAY MESSAGE 
LOOP 
ELSE 
EXIT 
ENDIF EOF() = .T. 
ENDIF (MFEAT - '00 ' .OR. MFEAT - '99 ") 
ENDIF 


ENDDO WHILE .T. 


+ 


STORE SPACE(16) + 'Press "Page Down" key to terminate record update' +; 


SPACE(16) TO MESSAGE 


STORE 1 TO INTRO 
DO WHILE .T. 


x 


* 
ж 


хх хх 


INFORM THE USER OF HOW TO TERMINATE THE UPDATE OF A RECORD 


IF INTRO = 1 THEN 
| STORE 0 TO INTRO 
?? FLASH + "W.DESPPUPD/"' 
SET CONSOLE OFF 
WAIT TO ANS 
SET CONSOLE ON 
ENDIF 


STORING THE OLD RECORD TO A WORK RECORD AREA. THE M PREFIX 
INDICATES MEMORY VARIABLES DISTINGUISHING THEM FROM THEIR 
CORRESPONDING DATABASE FIELDS. 


STORE FEATURENO ТО МЕЕАТ 


STORE CLIN TO MCLIN 
STORE DESCIPT TO MDESCRIP 
STORE MODELNO TO MMODELNO 
STORE FDCMODEL TO MFDCMODL 
STORE TYPECOMPON ТО МГСОМР 


STORE BASEMAINT ‘TO MBMAINT 
SET COLOR TO R+/B, R+/B 

@ 4,46 SAY RECNO() PICT "99999" 
SET COLOR TO /W, /W 

@ 24,0 SAY MESSAGE 


SET COLOR TO /BR, /BR 
6,45 SAY MFEAT PICT "9999909" 
8,45 GET MCLIN PICT "9999" 


e e ооо оо ооо о 


16,45 СЕТ МТСОМР РІСТ "!" 
18,45 СЕТ МВМАТМТ РТСГ "9999.99" 
READ 


(о (о а о ао (о (ә 
< 
us 
ол 
- 
E 
О 
c 
d 


262 


APPENDIX B: MAINTENANCE MANUAL Page 126 


Page 4 DESPPUPD.PRG Program Listing 
151 SET COLOR TO W/B, W/B 
52 @ 24,0 SAY SPACE(80) 
NES) * 
154| * ASK THE USER IF HE/SHE DESIRES TO ACCEPT THE CHANGES, ONLY IF ANY 
155| * CHANGES WERE MADE 
io; * 
157 IF .NOT. (FEATURENO-MFEAT .AND. CLIN-MCLIN .AND. DESCIPT-MDESCRIP .AND.; 
158 MODELNO-MMODELNO .AND. FDCMODEL-MFDCMODL .AND. ТҮРЕСОМРОМ -; 
159 MICOMP .AND. BASEMAINT-MBMAINT) THEN 
160 SET COLOR TO W«/ , W«/ 
161 8 21,10 SAY SPACE (55) 
162 @ 21,12 SAY "Do you want to accept the changes? (Yes or No):' 
163 SET COLOR TO R+/ , R+/ 
164 @ 21,49 SAY "yY"' 
165 8 21,56 5АҮ "М" 
166 STORE "N' TO ACCEPT 
167 @ 21,62 GET ACCEPT PICT "!" 
168 READ 
N59 * 
ШІ * ENSURE THAT THE USER'S PROMPT IS EITHER "Y" OR "N" 
171 15: | 
172 . DO WHILE .NOT. (ACCEPT - "N" .OR. ACCEPT - "Ү") 
173 IF .NOT. (ACCEPT - '"N" .OR. ACCEPT = '"Y") THEN 
174 SET COLOR TO W/B, W/B 
175 @ 24,0 SAY SPACE(80) 
176 SET COLOR TO W+/R,W+/R 
177 @ 24,24 SAY " Response must be either N or Y " 
178 DO DELAY 
179 STORE "N' TO ACCEPT 
180 SET COLOR TO /W, /М 
181 @ 24,0 SAY MESSAGE 
182 ENDIF 
183 SET COLOR ТО В+/ ,R+/ 
184 @Е21,62 СЕР АССЕРТ Р1СТ "!" 
185 ВЕАР 
186 ENDDO 
187 SET COLOR TO W«/B, W«/B 
188 @ 21,10 SAY SPACE (60) 
NS * 
190] * STORING THE CORRECTED EDIT FIELDS FROM THE WORK AREA. 
191| * 
192 IF ACCEPT = "y" THEN 
193 REPLACE FEATURENO WITH MFEAT 
194 REPLACE CLIN WITH MCLIN 
195 REPLACE DESCIPT WITH MDESCRIP 
196 REPLACE MODELNO WITH MMODELNO 
197 REPLACE FDCMODEL WITH MFDCMODL 
198 REPLACE TYPECOMPON WITH МТСОМР 
199 REPLACE BASEMAINT WITH MBMAINT 
200 ENDIF 


263 


APPENDIX B: MAINTENANCE MANUAL 


Page 5 DESPPUPD.PRG Program Listing 
201 ENDIF 
202| * 
203 SET COLOR TO W/B, W/B 
204 @ 21,10 SAY SPACE (55) 
205 * 
206| * ASK THE USER IF HE/SHE DESIRES TO CHANGE THE NOTES FIELD 
ОУ 
208 SET COLOR TO W+/B, W+/B 
209 @ 20,18 SAY "Edit the NOTES field? (Yeso me и 
210 SET COLOR TO R+/B, R+/B 
211 @ 20,42 SAY yY- 
219 @ 20,49 SAY "N" 
213 STORE 'N' TO ACCEPT 
214 @ 20,54 GET ACCEPT PICT "!" 
215 READ 
216| * 
217| * ENSURE THAT THE USER'S PROMPT IS EITHER "Y'' OR "N" 
В 
219 DO WHILE .NOT. (ACCEPT s "N" .OR. АССЕРТ = "у") 
220 IF .NOT. (ACCEPT = "М" .OR. ACCEPT = “Y") THEN 
221 SET COLOR TO W/B, W/B 
222 @ 24,0 SAY SPACE(80) 
223 SET COLOR TO W+/R, W+/R 
224 @ 24,24 SAY " Response must be either N or Y " 
225 DO DELAY 
226 STORE “N” ТО ACCEPT 
pou SET COLOR TO /W, /W 
228 @ 24,0 SAY MESSAGE 
229 ENDIF 
230 SET COLOR TO R+/B, R+/B 
231 @ 2054 GET ACCEPT PIT 1: 
232 ВЕАО 
233 ENDDO 
234| * 
235 IF ACCEPT = "Y" THEN 
236 ?? FLASH + "М.МОТЕЗ/" 
237 SET CONSOLE OFF 
238 WAIT TO ANS 
239 SET CONSOLE ON 
240 CHANGE FIELDS NOTES 
241 SET COLOR TO W+/B, W+/B, B 
242 CLEAR 
243 ?? FLASH « "S.DESCRIPT.SCR/" 
244 8 24,0 SAY SPACE(80) 
245 SET COLOR TO W+/B, W+/B 
246 @ 2,39 SAY "UPDATE" 
247 | SET COLOR TO R+/B, R+/B 
248 @ 4,46 SAY RECNO() PICT "99999" 
249 SET COLOR TO /BR, /BR 
250| @ 6,45 SAY MFEAT PICT "999999" 
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* 


* 


DE 


297 


298 


299) 


300 


8,45 SAY MCLIN PICT "9999" 


16,45 SAY MICOMP PICT "i!" 
18,45 SAY MBMAINT PICT "9999.99" 


Hj fe (c ram (a m'a 
> 
„> 
сл 
> 
< 
: 
iss 
rg 
3 


ENDI 


SET COLOR TO W/B, W/B 

@ 20,18 SAY SPACE (50) 

SET COLOR TO R+/B, R+/B 
SPORE CN TO CHOICE 

a C GET CHOICE PIGT "t" 
READ 


ENSURE THAT THE USER'S PROMPT IS EITHER "N", "P" OR "x" 


DO WHILE „МОТ. (CHOICE = "N" .OR. CHOICE = "P" ,OR. CHOICE 


Page 128 


= n ) 


IF .NOT. (CHOICE = "N" .OR. CHOICE - "P" .OR. CHOICE = "X") THEN 


SET COLOR 10 W/B, W/B 
@ 24,0 SAY SPACE(80) | 
SET COLOR TO W+/R, W+/R 
@ 24,23 SAY " Response must be either N, P or X " 
DO DELAY 
STORE "М" TO CHOICE 
ENDIF 
SET COLOR TO R+/B, R+/B 
Qu 67] GE CHOICE PICT “I” 
READ 
ENDDO 


Sele ТО THE NEXT RECORD TO BE REVIEWED 


IF CHOICE = "N" THEN 
IF RECNO () = LAST REC THEN 
GO TOP 
ELSE 
SKIP 
ENDIF 
ENDIF 


I TO) THE PREVIOUS RECORD TO BE REVIEWED 


IF CHOICE = "P" THEN 
PeRECNO (= FIRST REC THEN 
GO BOTTOM 
ELSE 
SKIP -1 
ENDIF 
ENDIF 
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3011 * 

302| * HAS DECIDED TO EXIT THE REVIEW 

303| * 

304 JP CHOICE = и 

305 EXIT 

306 ENDIF 

307| ENDDO WHILE .T. 

308 | * 

309| * RETURN TO CALLING PROGRAM. 

STE 

311| RELEASE ALL LIKE M*, ACCEPT, ANS, CHOICE, ERROR, INTRO 
312| CLOSE DATABASES 

313| RETURN 

31 4 | жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
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PROCEDURE EQPDTNPC. PRG 


AUTHORS : LCDR EDWARD J. CASE, SC, USN 
LCDR WINSTON H. BUCKLEY, SC, USN 
LCDR ROBERT F. BRADO, USN 
LCDR ROBERT L. BEARD III, SC, USN 


PURPOSE ТАРКОО УЛ ОЕК THs sUSER A SPLICE EOUIPMENT DELIVERY 
ORDER DAE LEVEE REPORT WLtHOUT UNIT COSTS. 


INPUT FILES : EQUIP.DBF, EQUIPSD.NDX, DESCRIP.DBF, DESCRIP.NDX, 
EQUIPSIT.NDX 


OUTPUT FILES  : TEMPONE.DBF, TEMPONE.NDX 

MODULES CALLED : DELAY.PRG 

GLOBAL VARIABLE: HIDATE, HISITE, LODATE, LOSITE 

LOCAL VARIABLES: ACCEPT, CHOICE, COLCNT, ERROR, LINECT, MKEY, 
MNEWDATE, MOLDATE, MSITE, PAGENO, SYSDATE, 
TODAY, TODATE 

DATE LAST TIME MODIFIED ----------> 27 DECEMBER 1985 <========== 


CASE SELECTION = 1 EQUIPMENT EFFECTIVE DELIVERY ORDER REPORT 
WITHOUT UNIT COST 


CALL EQUIPMENT DATABASE INDEXED ON SITE NUMBER. DISPLAY ALL 
БЕНЕСІТУЕ РАТЕ5С OF DELIVERY ORDERS FOR THE USER TO SELECT FROM. 
CALL EQUIPMENT DATABASE INDEXED ON EFFECTIVE DELIVERY ORDER DATE 
AND SITE NUMBER. COPY APPLICABLE RECORDS TO TEMPONE, INDEXED ON 
FEATURE NUMBER. RELATE TO DESCRIPTION FILE. 


X X X X X хх ххх X X X X X X X X X X X X X X X X X X X Xx X X 


SET ESCAPE OFF 
SET TALK OFF 
SET COLOR TO W+/B, W+/B, B 
CLEAR 
USE EQUIP 
GO TOP 
NISEOF() - .T. THEN 
SET COLOR 10 W+/R, W+/R 
Q 13,24 SAY " The EQUIPMENT Database is EMPTY! " 
DO DELAY 
RETURN 
ENDIF 
2? FLASH « "S.REPORTS.SCR/" 
@ 24,0 SAY SPACE(80) 
Sei COLOR TO R+/ , R+/ 
@ 2,25 SAY " DELIVERY ORDER LEVEL REPORT " 
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SET COLOR TO W+/BR, W+/BR 


@ 13,15 SAY "Enter site number for which the report is desired:" 
ж 


* ENSURE THAT TEMPORARY DATABASE AND INDEX DO NOT EXIST, IF SO ERASE THEM 


* 


SET CONSOLE “OFF 

ERASE TEMPONE.DBF 

ERASE TEMPONE.NDX 

SET CONSOLE ON 

USE EQUIP INDEX EFEOUIPSIT 
* 


DO WHEPEE eT. 

SET COLOR TO /BR, /BR 

STORE, МЕ) ЩЕ 

@ 13766 CEP MSITE PICI 99) 

READ 

IF .NOT. (MSITE »2 LOSITE .AND. MSDITE = ОПЕЕ ЕГ. 
SET COLOR TO W+/R, W+/R 
STORE ' Response must be between ' + LOSITE +; 


' and * + HISITE + ' ' TO ERROR 
@ 24,22 SAY ERROR 
DO DELAY 
LOOP 
ELSE 
GO TOP 
FIND &MSITE 
То ВЕЦ) ЕЛ. THEN 


STORE '' No equipment exists for site " + MSITE +; 
", try another site " TO MESSAGE 
SET COLOR TO W+/R, W+/R 
@ 24,15 SAY MESSAGE 
DO DELAY 
LOOP 
ELSE 
BAL? 
ENDIF POR) S nT, 
ENDIF .NOT.. (MSITE >= LOSITE AND. MSME «=н ЕЕ ШЕ) 
ENDDO WHILE m- T. 
* 
SET COLOR TO W+/BR, W+/BR 
@ 13,15 SAY SPACE(60) 
* 


SET COLOR TO W+/B, W+/B 


@ 05,09 SAY "The following Delivery Order Effective Dates exist for Site" 


@ 05,69 SAY MSITE 

SET COLOR TO /BR, /BR 
@ 13,05 SAY SPACE(70) 
STORE 1 TO LINECT 

STORE 1.00 TO COLCNT 
STORE "000000" TO MOLDATE 
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101 
102 
93 
104 
105 
106 
107 
108 
109 
110 
11 

B2 
113 
114 
ІШЕ 
116 
ИШ 
118 
119 
120 
121 

122 
123 
124 
125 
126 
127 
128 
29 
130 
131 

№32 
133 
134 
135 
136 
37 
138 
9 
140 
141 

142 
143 
144 
145 
146 
147 
148 
149 
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ж 


DO WHILE SITENO - MSITE 
IF (COLCNT - (COLCNT * (COLCNT/3)) = 0.00) THEN 
@LINECT+6,57 SAY EFFDATE | 
ELSE 
IF (COLCNT - (COLCNT * (COLCNT/2)) = 0.00) THEN 
@LINECT+6,38 SAY EFFDATE 
ELSE 
@LINECT+6,19 SAY EFFDATE 
ENDIF (COLCNT - (COLCNT * (COLCNT/2)) = 0.00) 


ENDIF (COLCNT - (COLCNT * (COLCNT/3)) = 0.00) 
IF (COLCNT - (COLCNT * (COLCNT/3)) = 0.00) THEN 
LINECT = 1 + LINECT 
COLCNT = 1.00 
ELSE 


COLCNT = COLCNT + 1.00 
ENDIF (COLCNT - (COLCNT * (COLCNT/3)) = 0.00) 
STORE EFFDATE TO MOLDATE 


DO WHILE ((EFFDATE = MOLDATE) .AND. .NOT. EOF()) 
SKIP+2 
ENDDO 


IF EOF() THEN 
EXIT 
ELSE 
SKIP 
ENDIF EOF() = .T. 
ENDDO WHILE SITENO = MSITE 
* 
STORE DIOC(DATE()) TO SYSDATE 
STORE SUBSTR(SYSDATE,7,2) « SUBSTR(SYSDATE,1,2) *; 
SUBSTR(SYSDATE,4,2) TO MDATE 
STORE SPACE(17) « 'Input Effective Date (Range ' « LODATE +; 
НЕА Ұ 7)” + СРАСЕ( 17) TO MESSAGE 
SET COLOR 1O /W, /W 
@ 24,0 SAY MESSAGE 
SET COLOR TO W+/B, W+/B 
@ 3,29 SAY "EFFECTIVE DATE: " 
* 


USE EQUIP INDEX EQUIPSD.NDX 
STORE "000000" TO MOLDATE 
* 


DO WHILE .NOT. (MOLDATE >= LODATE .AND. MOLDATE <= HIDATE) 
STORE MDATE TO MOLDATE 
SET COLOR TO R+/B, R+/B 
@ 3,45 GET MOLDATE РІСІ "9999909" 
READ 
DO WHILE .T. 
ШЕШ БОТО SUBSTR(MOLDATE,1,2) > "83" .AND,; 
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пе 
152 
129 
154 
155 
156 
157 
158 
159 
160 
yo 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
o 
176 
177 
178 
179 
180 
181 
162 
183 
184 
185 
186 
187 
188 
189 
190 
191 
792 
193 
194 
495 
196 
197 
198 
199 
200 
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SUBSTR(MOLDATE,1,2) <= "99") THEN 
SET COLOR TO W/B, W/B 
@ 24,0 SAY SPACE(80) 
SET COLOR TO W+/R, W+/R 
@ 24,16 SAY " Year portion of date must be between 84 апа 99 " 
DO DELAY 
SET COLOR TO /W, /W 
@ 24,0 SAY MESSAGE 
STORE SUBSTR(MDATE,1,2) TO MYEAR 
SET COLOR TO R+/B, R+/B 
@ 3,45 GET MYEAR PICT "99" 
READ 
STORE MYEAR + SUBSTR(MOLDATE,3,4) TO MOLDATE 
ELSE 
EXIT 
ENDIF 
ENDDO WHILE .T. 


DO WHILE .T. 
ТЕ „МОТ. (SUBSTR(MOLDATE,3,2) »- "01" .AND.; 
SUBSTR(MOLDATE,3,2) «- "12") THEN 
SET COLOR TO W/B, W/B 
@ 24,0 SAY SPACE(80) 
SET COLOR TO W+/R, W+/R 
€ 24,16 SAY " Month portion of date must be between 01 and 12 " 
DO DELAY 
SET COLOR TO /W, /W 
@ 24,0 SAY MESSAGE 
STORE SUBSTR(MDATE,3,2) TO MMONTH 
SET COLOR TO R+/B, R+/B 
8 3,47 СЕГ ММОМТН РІСТ "99" 
READ 
STORE SUBSIR(MOLDATE,1,2) + MMONTH +; 
SUBSTR(MOLDATE,5,2) TO MOLDATE 

ELSE 
EXIT 

ENDIF 

ENDDO WHILE .T. 


DO WHILE .T. 

IF ((SUBSTR(MOLDATE,3,2) » "04" .OR. SUBSTR(MOLDATE,3,2) = "06" .ORZS 
SUBSTR(MOLDATE,3,2) - "09" .OR. SUBSTR(MOLDATE,3,2) - '11") .AND.; 
.NOT. (SUBSTR(MOLDATE,5,2) »« "O1" .AND.; 
SUBSTR(MOLDATE,5,2) «s "30")) THEN 
SET COLOR TO W/B, W/B 
@ 24,0 SAY SPACE(80) 

SET COLOR TO W+/R, W+/R 

@ 24,16 SAY " Day portion of date must be between 01 and 30 " 
DO DELAY 

SET COLOR TO /W, /W 
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201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
PN 
212 
213 
214 
215 
216 
ІТ 
218 
21/9 
220 


222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 


235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 


249 | 
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@ 24,0 SAY MESSAGE 
STORE SUBSTR(MDATE,5,2) TO MDAY 
SET COLOR TO R+/B, R+B 
@ 3,49 GET MDAY PICT "99" 
READ 
STORE SUBSTR(MOLDATE,1,4) + MDAY TO MOLDATE 
LOOP 

ELSE 

* 
IF (SUBSTR(MOLDATE,3,2) - "02" .AND. .NOT.; 


(SUBSTR(MOLDATE,5,2) о- "01" .AND.; 


SUBSTR(MOLDATE,5,2) <= "28")) THEN 

SET COLOR TO W/B, W/B 

@ 24,0 SAY SPACE(80) 

SET COLOR TO W+/R, W+/R 

@ 24,16 SAY " Day portion of date must be between 01 and 28 " 
DO DELAY | 

SET COLOR TO /W, /W 

@ 24,0 SAY MESSAGE 

STORE SUBSTR(MDATE,5,2) TO MDAY 

SET COLOR TO R+/B, R+B 


@ 3,49 GET MDAY Picr "99" 
READ 
STORE SUBSTR(MOLDATE,1,4) + MDAY TO MOLDATE 
LOOP 
ELSE 


ПОЕ ОЕ (SUBSTR(MOBDATE,5,2) >= 01° .AND.; 


SUBSTR(MOLDATE,5,2) <= "31") THEN 
SET COLOR TO W/B, W/B 
@ 24,0 SAY SPACE(80) 
SET COLOR TO W+/R, W+/R 
@ 24,16 SAY " Day portion of date must be between 01 апа 31 " 
DO DELAY 
SET COLOR TO /W, /W 
@ 24,0 SAY MESSAGE 
STORE SUBSTR(MDATE,5,2) TO MDAY 
SET COLOR TO R+/B, R+B 
Q 3,49 GET MDAY PICT "99" 
READ 
STORE SUBSTR(MOLDATE,1,4) + MDAY TO MOLDATE 
LOOP 


ELSE 


EXIT 


ENDIF 
ENDIF 
ENDIF 
ENDDO WHILE .T. 


GO TOP 
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ZI 
252 
253 
254 
235 
256 
29 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
213 
274 
275 
276 
207 
278 
279 


280 |: 


281 

292 
283 
284 
285 
286 
297 
288 
289 
290 
291 

292 
235 
294 
295 
1296 
297 
298 
29% 
300 
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FIND &MOLDATE 
IF EOF() 
SET COLOR TO W/B, W/B 
@ 24,0 SAY SPACE(80) 
STORE " EFFECTIVE DATE " + MOLDATE + " does not exist for site ae 
MSITE + ", try another " TO NODATE 
SET COLOR TO W+/R, W+/R 


@ 24,06 SAY NODATE 


DO DELAY 


SET COLOR TO /W, 
@ 24,0 SAY MESSAGE 


= .T. THEN 


EQPDTNPC.PRG Program Listing 


/W 


STORE '"000000'" TO MOLDATE 


LOOP 


ENDIF EOF() = .T. 


ENDDO WHILE .NOT. (MOLDATE >= LODATE .AND. MOLDATE <= HIDATE) 
ж 


SET COLOR TO W+/B, W+/B 
a 05,05 SAY SPACE(70) 


@ 24,0 SAY SPACE(80) 


ж 


* 


SET COLOR TO /BR, 


07,2 
08,2 
09,2 
10,2 
[о 
кр 
ee 
14,2 
15,2 
16.2 
eee 
18,2 
19/2 
20,2 
212 


+ > г» (о (e (о (о (о (о (о (о (о (о (о (о (др 


SET COLOR TO R+/ , R+/ 


SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 


SPACE(76) 
SPACE (76 ) 
SPACES 76) 
SPACE (76) 
SPACE(76) 
SPACE (76) 


ЗРАСЕ( 76) | 


ЅРАСЕ( 76) 
SPACE( 76) 


.SPACE( 76) 


SPACE(76) 
SPACE(76) 
SPACE(76) 
SPACE(76) 
ЅРАСЕ(76) 


* CLEAR LISTING OF EFFECTIVE DATES FROM SCREEN 


@ 13,18 SAY '' CREATING TEMPORARY DATABASE AND INDEX FILE " 
STORE "MOLDATE" + "MSITE'' TO МКЕУ 


GO TOP 


FIND &MKEY 


ж 


COPY TO TEMPONE FOR SITENO - "&MSITE" .AND. EFFDATE - "&MOLDATE" 


SELECT 


1 


USE TEMPONE 
INDEX ON FEATURENO TO TEMPONE 


SELECT 


2 


27 2 
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301 


USE DESCRIP INDEX DESCRIP 

SELECT TEMPONE | 

SET RELATION TO FEATURENO INTO DESCRIP 

GO TOP 

ж 

E CREATE THE SPLICE EQUIPMENT PROJECT REPORT AND CHECK IF THE REPORT 
ы ши 1) BEVPRINTED OR DISPLAYED ON THE SCREEN. 
* 


SET COLOR TO W+/BR, W+/BR 

@ 13,15 SAY SPACE(60) 

@ 13,16 SAY " Do you want a printed report? (Yes or No): 
SET COLOR TO /BR, /BR 

@ 13,49 SAY "Y" 

HE3.56 SAY "м" 

STORE "N'" TO ACCEPT 

ЕТ 3,62 СЕТ АССЕРТ РТСГ "!" 

READ 

ж 


Ж ENSURE THAT THE USER'S RESPONSE IS EITHER "Y" ОВ "№" 
ж 
DO WHILE .NOT. (ACCEPT - "N" ,OR. ACCEPT = "Ү" 
трае АССЕРГ = UNU ОВ. ACCEPT = Uy!) 
SET COLOR TO W+/R, W+/R 
@ 24,24 SAY " Response must be either N or Y ' 
DO DELAY 
STORE "N" TO ACCEPT 
ENDIF .NOT. (ACCEPT - "N'" .OR. ACCEPT = "У") 
SET COLOR TO /BR, /BR 
23 62 GET ACCEPT PICT "Т" 
READ 
ENDDO WHILE .NOT. (ACCEPT - "N" .OR. ACCEPT = "Y") 
ж 
SET COLOR TO /BR, /BR 
@ 13,15 SAY SPACE(55) 
ж 
IF ACCEPT = "Y" THEN 
?? FLASH + "W.PRINTER/" 
SET CONSOLE OFF 
WAIT TO CHOICE 
SET CONSOLE ON 
SET COLOR TO W/B, W/B 
@ 22,10 SAY SPACE(65) 
STORE DIOC(DATE()) TO TODAY 
STORE SUBSTR(TODAY,4,2) + " " + CMONTH(DATE()) + " 19" +; 
SUBSTR(TODAY, 7,2)" TO TODATE 
STORE 0 TO PAGENO 
STORE 61 TO LINECT 
Ser COLOR TO R+/ , R+/ 
SET DEVICE TO PRINT 


) 
THEN 


13 
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351 DO WHILE .NOT. EOF() 
352 DO WHILE (LINECT <= 60 .AND. „МОТ. ЕОЕ()) 
353 @ LINECT,3 SAY SITENO PICT "99" 
354 @ LINECT,9 SAY B->CLIN PICT "9999" 
355 @ LINECT,17 SAY FEATURENO PICT "999999" 
356 @ LINECT,28 SAY B->DESCIPT PICT “!itiiltriirti 1) 100 1 e 
357 a LINECT,60 SAY QTY РІСТ "999" 
358 @ LINECT,67 SAY B-»FDCMODEL PICT ":131:111111" | 
359 LINECT = LINECT + 1 | 
360 SKIP 
361 ENDDO WHILE (LINECT <= 60 .AND. .NOT. EOF()) | 
362| * 
363 ТЕ ЕОЕ() - .T. THEN 
364 IF PAGENO > 1 THEN 
365 8 62,37 SAY "Page " « STR(PAGENO,2,0) 
366 ENDIF PAGENO > 1 
367 EJECT 
368 SET DEVICE TO SCREEN 
369 @ 13,25 SAY " FINISHED PRINTING THE REPORT " 
370 DO DELAY 
371 EXIT 
212 ELSE 
Bos SET DEVICE TO SCREEN 
374 @ 13,27 SAY " Printing Page Number " « STR(PAGENO « 1,2,0) « " " | 
375 SET DEVICE TO PRINT 
376 ENDIECEOBOCSTT. 
377| * 
378 IF (LINECT » 60 .AND. PAGENO » 1) THEN 
379 @ 62,37 SAY "Page " + STR(PAGENO,2,0) 
380 ENDIF (LINECT > 60 .AND. PAGENO > 1) 
381 @ 2,25 SAY " DELIVERY ORDER LEVEL REPORT " 
382 @ 3,29 SAY "EFFECTIVE DATE: " 
383 Q 3,45 SAY MOLDATE 
384 @ 4,60 SAY TODATE 
385 @ 6,2 SAY "SITE CLIN  FEATURE# DESCRIPTION" 
386 8а 6,60 SAY "QTY MODEL NUMBER" 
387 @ 7,2 5ДҮ "-------------------------------------------------" 
388 @ 7,51 SAY "============================!!' 
389 PAGENO = PAGENO + 1 
390 STORE 9 TO LINECT 
391| * 
392 ENDDO WHILE .NOT. EOF() 
393| ELSE 
394 SET COLOR ТО СЕ+/В, СЕ+/В 
395 @ 5,2 SAY "SITE CLIN  FEATURE# DESCRIPTION" 
396 @ 5,60 SAY "QTY MODEL NUMBER" 
397 SET COLOR TO /BR, /BR 
398 STORE 0 TO LINECT 
399| * 
400 DO WHILE .NOT. EOF() 
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401 
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405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 


437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
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DO WHILE LINECT « 15 
@ LINECT+7,3 SAY SITENO PICT "99" 
@ LINECT+7,9 5АҮ В->СЫІМ РІСІ "9999" 
@ ГТМЕСТ+7,17 5АҮ ҒЕАТОВЕМО РІСІ "999999" 
ЕРИНЕ ОЕЕО аеоси 
@ LINECT+7,60 ЅАҮ ОТҮ РІСТ ''999" 
@ LINECT+7,67 SAY B->FDCMODEL PICT ""! 111111111" 
LINECT =. LINECT ~ 1 
SKIP 
ЕЕ TS ЕИ 
SET COLOR TO W+/R, W+/R 
@ 24,18 SAY " End of File reached, Press any key to EXIT " 
SET CONSOLE OFF 
WAIT TO ACCEPT 
SET CONSOLE ON 
EXIT 
ENDIF EOF() = .T. 
ENDDO WHILE LINECT < 15 


i POROASE T. THEN 

EXTT 
ENDIF EOF() = .T. 
SET COLOR TO R+/B, R+/B 
SHORE СТО CHOICE | 
0m2 SA CET CHOICE PICI "I" 
READ 


ENSURE THAT THE USER'S RESPONSE IS EITHER "Y" OR "N'" 


DO WHILE .NOT. (CHOICE = 'C" .OR. CHOICE = "X") 
ЛЕ ОТ. (ВВОТСЕ s "C" ОБ. CHOICE - "X'") THEN 
SET COLOR TO W+/R, W+/R 
@ 24,24 SAY " Response must be either C or X " 
DO DELAY 
STORE "C" TO CHOICE 
ENDIF .NOT. (CHOICE = "С" .ОВ. СНОТСЕ = "Х") 
SET COLOR TO R«/B, R«/B 
a2 S7 CET CHOICE PICI "i" 
READ 
ENDDO WHILE .NOT. (CHOICE = "С" ,OR. CHOICE = "Х") 


DETERMINE IF THE USER WANTS TO QUIT OR CONTINUE 


IF CHOICE - "c" 
SET COLOR TO /BR, /BR 
@ 07,2 SAY SPACE(76) 
@ 08,2 SAY SPACE(76) 
@ 09,2 SAY SPACE(76) 
@ 10,2 SAY SPACE(76) 
@ 11,2 SAY SPACE(76) 


ЖЕ 
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12,2 SAY SPACE(76) 
13,2 SAY SPACE(76) 
14,2 SAY SPACE(76) 
15,2 SAY SPACE(76) 
16,2 SAY SPACE(76) 
17,2 SAY SPACE(76) 
18,2 SAY SPACE(76) | 
19,2 SAY SPACE(76) | 
20,2 SAY SPACE(76) 
21,2 SAY SPACE(76) | 
STORE 0 TO LINECT x 
ELSE 
EXIT 
ENDIF CHOICE = "С" 


(о (£D (QD (CD (CD (CD (CD (CD > > 


ENDDO WHILE NOTI ВЕС) 
* 


ENDIF ACCEPT = "y" 
* 


* ERASE ALL TEMPORARY FILES CREATED DURING REPORT GENERATION 

* : 

CLOSE DATABASES 

SET CONSOLE OFF . 

ERASE TEMPONE.DBF | 
ERASE TEMPONE.NDX 

SET CONSOLE ON 

SET PRINT OFF 

ж 


* RETURN TO CALLING PROGRAM 

* 

RELEASE ALL LIKE M*, ACCEPT, CHOICE, COLCNT, ERROR, LINECT, PAGENO,; 
SYSDATE, TODAY, TODATE 

RETURN 


484) жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
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PROCEDURE EQPDTPRC. PRG 


AUTHORS : LCDR EDWARD J. CASE, SC, USN 
LCDR WINSTON H. BUCKLEY, SC, USN 
LCDR ROBERT F. BRADO, USN 
LCDR ROBERT L. BEARD III, SC, USN 


PURPOSE ; PROVIDE THE USER A SPLICE EQUIPMENT DELIVERY 
ORDER DATE LEVEL REPORT WITH UNIT COSTS. 


INPUT FILES : EQUIP.DBF, EQUIPSD.NDX, DESCRIP.DBF, DESCRIP.NDX, 
EQUIPSIT.NDX | 


OUTPUT FILES : TEMPONE.DBF, 'TEMPONE.NDX 
MODULES CALLED : DELAY.PRG 
GLOBAL VARIABLE: HIDATE, HISITE, LODATE, LOSITE 


LOCAL VARIABLES: ACCEPT, CHOICE, COLCNT, ERROR, LINECT, MKEY, MNEWDATE, 
MOLDATE, MSITE, PAGENO, SYSDATE, TODAY, TODATE 


EBENE Пе МОЖЕ ЛЕО s52222-222-5 27 DECEMBER 1985 ‹========== 


CASE SELECTION - 1 EQUIPMENT EFFECIIVE DELIVERY ORDER REPORT 
WITH UNIT COST 


CALL EQUIPMENT DATABASE INDEXED ON SITE NUMBER. DISPLAY ALL 
КОСЕ ТТУЕ DATES OF DELIVERY ORDERS FOR THE USER TO SELECT FROM. 
CALL EQUIPMENT DATABASE INDEXED ON EFFECTIVE DELIVERY ORDER DATE 
AND SITE NUMBER. COPY APPLICABLE RECORDS TO TEMPONE, INDEXED ON 
FEATURE NUMBER. RELATE TO DESCRIPTION FILE. 


X X X ++ + + + + + HH HHH He X X X X X X X X X X X X X X X X © + 


SET ESCAPE OFF 
SET TALK OFF 
SET COLOR TO W«/B, W«/B, B 
CLEAR 
USE EQUIP 
GO TOP 
IF EOF() = .T. THEN 
SET COLOR TO W+/R, W+/R 
Q 13,24 SAY " The EQUIPMENT Database is EMPTY! " 
DO DELAY 
RETURN 
ENDIF 
?? FLASH « 'S.REPORTS.SCR/" 
@ 24,0 SAY SPACE(80) 
SET COLOR TO R+/ , R+/ 
@ 2,25 SAY " DELIVERY ORDER LEVEL REPORT " 
SET COLOR TO W+/BR, W+/BR 
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@ 13,15 SAY "Enter site number for which the report is desired:" 
* 


* ENSURE THAT TEMPORARY DATABASE AND INDEX DO NOT EXIST, IF SO ERASE THEM 

* | 
SET CONSOLE OFF 

ERASE TEMPONE.DBF 

ERASE TEMPONE.NDX 

SET CONSOLE ON 

USE EQUIP INDEX EQUIPSIT 
* 


DO WHILE =. T. | 
SET OOLOR TTO 5 ВЕ ВВ | 
SIORE LOSITE TO MSITE | 
@ 13,66 GET MSITE PICT '99' 

READ | 
IF .NOT. (MSITE >= LOSITE .AND. MSITE «s HISITE) THEN 
SET COLOR TO W+/R, W+/R 
STORE ' Response must be between ' + LOSITE +; 


' and ' + HISITE + ' ' TO ERROR 

@ 24,22 SAY ERROR 
DO DELAY 
LOOP 

ELSE | | 
СО ТОР | 
FIND &MSITE | 
IP EOR PEN 


STORE " No equipment exists for site '' + MSITE +; 
", try another site " TO MESSAGE 
SET COLOR TO W+/R, W+/R 
@ 24,15 SAY MESSAGE 
DO DELAY 
LOOP 
ELSE 
БАРР 
ENDIF EOF() = .T. 
ENDIF NOT. (MSITE >= IOSITE .AND. MSITE <= ИСТЕ 
ENDDO WHILE .T. 
* 
SET COLOR TO W«/BR, W«/BR 
@ 13,15 SAY SPACE(60) 
* 


SET COLOR ТО W+/B, W+/B 

@ 05,09 SAY "The following Delivery Order Effective Dates exist for Site” 
G 05769 SAY MSIIE 

SET COLOR TO /BR, /BR 

@ 13,05 SAY SPACE(70) 

STORE I TOICINECI 

STORE, 1200 10 CODPCNT 

STORE "000000" TO MOLDATE 

* 


28 


101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
ШІ 2 
ІІ 3 
114 
115 
116 
ШІ 7 
ШӘ 
ШЕ? 
120 
121 
122 
123 
124 
125 
126 
107 
128 
129 
130 
131 
[62 
133 
134 
35 


137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
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DO WHILE SITENO - MSITE 
ТЕ (COLCNT - (COLCNT * (COLCNT/3)) s 0.00) THEN 
GLINECT«6,57 SAY EFFDATE 
ELSE 
ER COENE S (OODONPESEOOGOLCNT/2)). s 0.00) THEN 
@LINECT+6,38 SAY EFFDATE 
ELSE 
@LINECT+6,19 SAY EFFDATE 
ENDIF (COLCNT - (COLCNT * (COLCNT/2)) = 0.00) 
Е ое — (COLCNT * (GOLGNT/3))) = 0.00) 
IF (COLCNT - (COLCNT * (COLCNT/3)) = 0.00) THEN 


LINECT = 1 + LINECT 
COLCNT = 1.00 

ELSE 
COLCNT = COLCNT + 1.00 


ENDIF (COLCNT - (COLCNT * (COLCNT/3)) = 0.00) 
STORE: EF FDATE TO MOLDATE 


DO WHILE ((EFFDATE = MOLDATE) .AND. .NOT. EOF()) 
SKIP+2 
ENDDO 


IF EOF() THEN 
EXIT 
ELSE 
SKIP 
ENDIF EOF() = .T. 
ENDDO WHILE SITENO = MSITE 
ж 
STORE DIOC(DATE()) TO SYSDATE 
STORE SUBSTR(SYSDATE,7,2) + SUBSTR(SYSDATE,1,2) +; 
SUBSTR(SYSDATE,4,2) TO MDATE 
STORE SPACE(17) + ‘Input Effective Date (Range ‘ + LODATE +; 
КОГО HIDATE + ')' + SPACE(17) TO MESSAGE 
SET COLOR TO /W, /W 
@ 24,0 SAY MESSAGE 
SET COLOR TO W+/B, W+/B 
@ 3,29 SAY "EFFECTIVE DATE: " 
ж 


USE EQUIP INDEX EQUIPSD.NDX 
STORE "000000" TO MOLDATE 
ж 
DO WHILE .NOT. (MOLDATE »- LODATE .AND. MOLDATE «- HIDATE) 
STORE MDATE TO MOLDATE 
SET COLOR TO R+/B, R+/B 
@ 3,45 GET MOLDATE PICT '999999'" 
READ 
DO WHILE .T. 
IF .NOT. (SUBSTR(MOLDATE,1,2) » "83" .AND.; 
SUBSTR(MOLDATE,1,2) <= '"99") THEN 
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151 SET COLOR TO W/B, W/B 
152 @ 24,0 SAY SPACE(80) 
| SET COLOR TO W+/R, W+/R 
154 8 24,16 SAY " Year portion of date must be between 84 and 99 " 
155 DO DELAY 
156 SET COLOR ТО /W, /W 
057 @ 24,0 SAY MESSAGE 
158 STORE SUBSTR(MDATE,1,2) TO MYEAR 
159 SET COLOR TO R+/B, R+/B 
160 @ 3,45 GET MYEAR PICT "99" 
161 READ 
162 STORE MYEAR + SUBSTR(MOLDATE,3,4) TO MOLDATE 
163 ELSE 
164 EXET 
165 ENDIF 
166 ENDDO 
То 
168 DO WHILE .T. 
169 IF .NOT. (SUBSTR(MOLDATE,3,2) »—' 00 AND. 
170 SUBSTR(MOLDATE,3,2) « '13'") THEN 
UA SET COLOR TO W/B, W/B 
172 @ 24,0 SAY SPACE(80) 
173 SET COLOR TO W+/R, W+/R 
174 @ 24,16 SAY " Month portion of date must be between 01 and 12 " 
175 DO DELAY | 
176 SET COLOR TO /W, /W 
iy à 24,0 SAY MESSAGE 
178 STORE SUBSTR(MDATE,3,2) TO MMONTH 
179 SET COLOR TO R«/B, R«/B 
180 @ 3,47 GET MMONTH PICT "99" 
181 READ 
182 STORE SUBSTR(MOLDATE,1,2) + MMONTH +; 
183 SUBSTR (MOLDATE, 5,2) TO MOLDATE 
184 ELSE 
185 EXIT 
186 ENDIF 
187 ENDDO 
188| * 
189 DO WHILE .T. 
190 IF ((SUBSTR(MOLDATE,3,2) = '"04" .OR. SUBSTR(MOLDATE,3,2) = "06" .OR.; 
191 SUBSTR(MOLDATE,3,2) = "09" „ОВ. SUBSTR(MOLDATE,3,2) = "11 ) TANDE 
192 .NOT. (SUBSTR(MOLDATE,5,2) >= "01" .AND.; 
193 SUBSTR(MOLDATE,5,2) «s "30")) THEN 
194 SET COLOR TO W/B, W/B 
195 @ 24,0 SAY SPACE(80) 
196 SET COLOR TO W+/R, W+/R 
197 | @ 24,16 SAY " Day portion of date must be between 01 and 30 " 
198 DO DELAY 
199 SET COLOR TO /W, /W 
200| @ 24,0 SAY MESSAGE 
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201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
215 
236 
E37 
238 
289 
240 
241 
242 
243 
244 
245 
246 


247| 


248 
249 
250 
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STORE SUBSTR(MDATE,5,2) TO MDAY 
SET COLOR TO R«/B, R«B 
@ 3,49 GET MDAY PICT "99" 
READ 
STORE SUBSTR(MOLDATE,1,4) + MDAY TO MOLDATE 
LOOP 

ELSE 

ж 
IF (SUBSTR(MOLDATE,3,2) = "02" .AND. .NOT.; 


(SUBSTR(MOLDATE,5,2) >= "01" .AND.; 
SUBSTR(MOLDATE,5,2) <= ''28'"')) THEN 

SET COLOR TO W/B, W/B 

@ 24,0 SAY SPACE(80) 

SET COLOR TO W+/R, W+/R 

@ 24,16 SAY " Day portion of date must be between 01 and 28 " 
DO DELAY 

SET COLOR TO /W, /W 

@ 24,0 SAY MESSAGE 

STORE SUBSTR(MDATE,5,2) TO MDAY 

SET COLOR TO R+/B, R+B 

@ 3,49 СЕТ МОАУ РТСТ "99" 

READ 

STORE SUBSTR(MOLDATE,1,4) + MDAY TO MOLDATE 
LOOP 


ELSE 


IF .NOT. (SUBSTR(MOLDATE,S,2) >= "01" „АМО.; 


SUBSTR(MOLDATE,5,2) «2 "31") THEN 
SET COLOR TO W/B, W/B 
@ 24,0 SAY SPACE(80) 
SET COLOR TO W+/R, W+/R 
@ 24,16 SAY " Day portion of date must be between 01 and 31 " 
DO DELAY 
SET COLOR TO /W, /W 
@ 24,0 SAY MESSAGE 
STORE SUBSTR(MDATE,5,2) TO MDAY 
SET COLOR TO R«/B, R«B 
@ 3,49 GET MDAY PICT "99" 
READ 
STORE SUBSTR(MOLDATE,1,4) + MDAY TO MOLDATE 
LOOP 


ELSE 


EXIT 


ENDIF 
ENDIF 
ENDIF 


ENDDO WHILE .T. 


GO TOP 
FIND &MOLDATE 


28] 


21 
252 
253 
254 
255 
256 
207 
258 
259 
260 
261 
262 


264 
265 
266 
267 
268 
269 
ZG, 
271 

272 
273 
274 
275 
276 
277 
278 
249 
280 
281 

292 
283 
284 
285 
286 
287 
288 
289 
290 
291 

292 
233 
294 
295 
296 
297 
298 
299 
300 
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ТЕ EOP() s 1 Е ЕВЕШ 
SET COLOR TO W/B, W/B 
Q 24,0 SAY SPACE(80) 
STORE " EFFECTIVE DATE " + MOLDATE + " Goes not exist for site " ж; 

MSITE + ", try another " TO NODATE 

SET COLOR TO W+/R, W+/R 
@ 24,06 SAY NODATE 
DO DELAY 
SET COLOR TO /W, /W 
@ 24,0 SAY MESSAGE 
STORE "000000" TO MOLDATE 
LOOP 

ELSE 
EXIT 

ENDIF SEOE ()> =. 20. 

ENDDO WHILE „МОТ. (MOLDATE >= LODATE .AND. MOLDATE <= HIDATE) 


* 


SET COLOR TO W+/B, W«/B 
@ 05,05 SAY SPACE(70) 


@ 24,0 


* 


07:2 
0672 
0972 
1057 
72 
1272 
Пи 
14,2 
15,2 
0672 
а 
16 2 
19.22 
20,2 
АЛЫР 


жш ао ао со (о (осо (о (о о о о о * ж 


SAY SPACE(80) 


CLEAR LISTING OF EFFECTIVE DATES FROM SCREEN 


ET COLOR TO /BR, /BR 


SAY SPACE(76) 
SAY SPACE(76) 
SAY SPACE(76) 
SAY SPACE(76) 
SAY SPACE(76) 
SAY SPACE(76) 
SAY SPACE(76) 
SAY SPACE(76) 
SAY SPACE(76) 
SAY SPACE(76) 
SAY SPACE(76) 
SAY SPACE(7b) 
SAY SPACE(76) 
SAY SPACE(76) 
SAY SPACE(76) 


SET COLOR TO R+/ , R+/ 
@ 13,18 SAY " CREATING TEMPORARY DATABASE AND INDEX FILE " 
STORE '"MOLDATE' + "МЅІТЕ" ТО МКЕҮ 


GO ТОР 


FIND &MKEY 


ж 


COPY TO TEMPONE FOR SITENO = "&MSITE" .AND. EFFDATE - "&MOLDATE" 
SELECT 1 

USE TEMPONE 

INDEX ON FEATURENO TO TEMPONE 
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EDI SELECT 2 

302| USE DESCRIP INDEX DESCRIP 

303| SELECT TEMPONE 

304| SET RELATION TO FEATURENO INTO DESCRIP 


B05) GO TOP 
S06) * 
307 CREATE THE SPLICE EQUIPMENT PROJECT REPORT AND CHECK IF THE REPORT 


ж 
8981 * IS TO BE PRINTED OR DISPLAYED ON THE SCREEN. 
309] * 

310| SET COLOR TO W+/BR, W+/BR 

ШІ! 8 13,15 SAY SPACE(60) 

ШИ 8 13,16 SAY " Do you want a printed report? (Yes or No): " 
313| SET COLOR TO /BR, /BR 

ара 13,49 SAY "Y" 

3151 @ 13,56 ЗАУ "М" 

Во STORE "N" TO ACCEPT 

BIVI @ 13,62 GET ACCEPT PICT "!" 


318| READ 
319| * 

320| * ENSURE THAT THE USER'S RESPONSE IS EITHER "Y" OR "N" 
321} * 

322| DO WHILE .NOT. (ACCEPT = "N" .OR. АССЕРТ = "У") 

323 ШЕПКЕ О (АССЕРТ = "М" ОВ. ACCEPT = " y") THEN 
324 SET COLOR TO W+/R, W+/R | 

B25 Q 24,24 SAY " Response must be either Nor Y " 
326 DO DELAY 

227 STORE "N" TO ACCEPT 

328 ENDIF .NOT. (ACCEPT = "N'" .OR. ACCEPT - 'Yy") 

329 SET COLOR TO /BR, /BR 

330 13.62 СЕТ ACCEPT PICT "t" 

331 READ 

332| ENDDO WHILE .NOT. (ACCEPT - "N" ,OR. ACCEPT - "y") 
833 ж 

334| SET COLOR TO /BR, /BR 

335| Q 13,15 SAY SPACE(55) 

336| * 

337| IF ACCEPT = "Y" THEN 

338 ?? FLASH + "W.PRINTER/" 

339 SET CONSOLE OFF 

340 WAIT TO CHOICE 

341 SET CONSOLE ON 

342 SET COLOR TO W/B, W/B 

343 @ 22,10 SAY SPACE(65) 

344 STORE DTOC(DATE()) TO TODAY 

345 STORE SUBSTR(TODAY,4,2) « " " « CMONTH(DATE()) + ' 19" +; 
346 SUBSTR(TODAY,7,2) TO TODATE 

347 STORE 0 TO PAGENO 

348 STORE 61 TO LINECT 

349 SET COLOR TO R+/ , R+/ 

350 SET DEVICE TO PRINT 


351 
255 
353 
354 
252 
356 
357 
350 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
210 
371 
272 
373 
374 
375 
376 
377 
378 
277 
380 
381 
382 
383 
384 
303 
386 
387 
388 
389 
390 
391 
392 
323 
394 
395 
390 
Bo 
398 
399 
400 
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DO WHILE .NOT. EOF() 


DO WHILE (LINECT <= 60 .AND. .NOT. EOF()) 

LINECT,3 SAY SITENO PICT "99" 

LINECT,9 SAY B->CLIN PICT "9999" 

LINECT,17 SAY FEATURENO PICT ''999999' 

LINECT,28 SAY B->DESCIPT PICT “!titititttittrr) 0) D DE 

LINECT,60 SAY QTY PICT "999" 

LINECT,66 SAY UNIT PRICE PICT '99999999,99" 
LINECT = LINECT + 1 
SKIP 

ENDDO WHILE (LINECT «- 60 .AND. .NOT. EOF()) 


(CD (co (CD (CD (CD (co 


DECHORC) s DIEN 
IF PAGENO > 1 THEN 
@ 62,37 SAY "Page " + STR(PAGENO,2,0) 
ENDIF PAGENO > 1 | 
EJECT 
SEP DEVICE TO- SCREEN 
@ 13,25 SAY " FINISHED PRINTING THE REPORT " 
DO DELAY 
EXIT 
ELSE 
SET DEVICE TO SCREEN 
@ 13,27 SAY " Printing Page Number " + SIR(PAGENO + 1,2,0) +" " 
SET DEVICE TO- PRINT 
FPIDIP POP (7 S 


IF (LINECT > 60 .AND. PAGENO > 1) THEN 
@ 62,37 ЅАҮ "Раде " + STR(PAGENO,2,0) 
ENDIF (LINECT » 60 .AND. PAGENO » 1) 
@ 2,25 SAY " DELIVERY ORDER LEVEL REPORT " 
@ 3,29 SAY "EFFECTIVE DATE: " 
@ 3,45 SAY MOLDATE 
@ 4,60 SAY TODATE 
@ 6,2 SAY "SITE CLIN  FEATUREA DESCRIPTION" 
@ 6,60 SAY "OTY UNIT РВЕТСЯ = 
0.7 2. SAY !.-------------ш----------------------------------- 
@ 7,51 SAY "s==s======s===================" 
PAGENO = PAGENO + 1 
STORE 9 TO LINECT 


ENDDO WHILE .NOT. FOF() 


ELSE 


SET COLOR TO GR+/B, GR+/B 

@ 5,2 SAY "SITE CLIN  FEATURE# DESCRIPTION" 
@ 5,60 SAY "QTY UNIT PRICE " 

SET COLOR TO /BR, /BR 

STORE 0 TO" LINECE 


* 
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401 DO WHILE .NOT. EOF() 
402 DO WHILE LINECT < 15 
403 @ LINECT+7,3 SAY SITENO PICT "99" 
404 @ LINECT+7,9 SAY B->CLIN PIcT "9999" 
405 @ LINECT+7,17 SAY FEATURENO PICT "999999" 
406 ОЕЕО ЗВЕНЕ ро още РЕ" 
407 а LINECT«7,60 SAY QTY PICT "999" 
408 @ LINECT+7,66 SAY UNIT PRICE PICT "99999999,99" 
409 LINECT = LINECT + 1 
410 SKIP 
411 IF EOF() = .T. THEN 
412 SET COLOR TO W+/R, W+/R 
413 @ 24,18 SAY " End of File reached, Press any key to EXIT " 
414 SET CONSOLE OFF . 
415 WAIT TO ACCEPT 
416 SET CONSOLE ON 
417 EXIT 
418 ENDIF EOF() - .T. 
419 ENDDO WHILE LINECT « 15 
420| * 
421 ЕЕ ( ) - T. THEN 
422 EXIT 
423 ENDIF FOF() = .T. 
424 SET COLOR TO R+/B, R+/B 
425 STORE "C" TO CHOICE 
426 ee? SI CET CHOICE PICT "1" 
427 READ 
ДОВ * ; 
429| * ENSURE THAT THE USER'S RESPONSE IS EITHER "Y" OR "N" 
430| * | 
431 БОЛНЕ МТ. (СНОТСЕ = "С" .OR. CHOICE - "x") 
42% Ш УШ (СНӨЛЕН = "С! OR. CHOICE = X") THEN 
433 SET COLCR TO W+/R, W+/R 
434 @ 24,24 SAY " Response must be either Cor x " 
435 DO DELAY 
436 STORE "C" TO CHOICE 
437 ENDIF МОТ. (CHOICE - "С" ОВ. CHOICE = "X") 
438 SET COLOR TO R+/B, R+/B 
439 (20 57 GEP GHOICE Picr "i!" 
440 READ 
441 ENDDO WHILE .NOT. (CHOICE = "С" .OR. CHOICE = "Х") 
442| * 
443) ж DETERMINE IF THE USER WANTS TO QUIT OR CONTINUE 
444| * 
445 ПЕ CHOICE = "C" 
446 SET COLOR TO /BR, /Вв 
447 @ 07,2 SAY SPACE(76) 
448 @ 08,2 SAY SPACE(76) 
449 @ 09,2 SAY SPACE(76) 
450 @ 10,2 SAY SPACE(76) 


205 


471| * ERASE ALL TEMPORARY FILES CREATED DURING REPORT GENERATION 
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Page 10 
451 @ 11,2 АУ 
452 @ 12,2 SAY 
453 Q T3 2 SAY 
454 Q 14,2 SAY 
455 de 15 205A 
456 ü 16,25 SAY 
457 @ 17,2 SAY 
458 @ 18,2 SAY 
459 @ 19 2 SAY 
460 Q 20,2 SAY 
461 : @ 21,2 SAY 
462 STORE О TO 
463 ELSE 
464 EXIT 
465 ENDIF CHOICE - 
466| * 
467 ENDDO WHILE .NOT. 
468| * 
469| ENDIF ACCEPT = "Y" 
470| * 
472| * 
473| CLOSE DATABASES 


474| SET CONSOLE OFF 
475| ERASE TEMPONE. DBF 
476| ERASE TEMPONE .NDX 
477| SET CONSOLE ON 


478| SET PR 
ЕЛЭ 


INT ORE 


MAINTENANCE MANUAL 
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SPACE( 76) 
SPACE (76 ) 
SPACE (76) 
SPACE (76 ) 
SPACE (76) 
SPACE (76) 
SPACE (76) 
SPACE (76 ) 
SPACE (76) 
SPACE (76) 
SPACE (76) 
LINECT 


‘en 


POF ( ) 


480| * RETURN TO CALLING PROGRAM 


481] * 


Page 149 


482| RELEASE ALL LIKE M*, ACCEPT, CHOICE, COLCNT, ERROR, LINECT, РАСЕ 


483 
484 | RETURN 


SYSDATE, TODAY, TODATE 


485) жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
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PROCEDURE EQPPJRPT.PRG 
AUTHORS : LCDR EDWARD J. CASE, SC, USN 
LCDR WINSTON H. BUCKLEY, SC, USN 
CCOR T ROBERT F. BRADO, USN 
ТОВ ВОВЕВТ 5. BEARD III, SC, USN 
PURPOSE : PROVIDE THE USER A SPLICE EQUIPMENT 
PROGR er SE VEG, REPORT: 


INPUT FILES : EQUIP.DBF, DESCRIP.DBF, DECSRIP.NDX, 
TEMPONE.DBF, EFEAT.NDX 


OUTPUT FILE : TEMPONE.DBF 

CALLED BY : PROJRPTS.PRG 

MODULES CALLED : DELAY.PRG 

LOCAL VARIABLES: ACCEPT, CHOICE, LINECT, PAGENO, TODAY, TODATE 
DATE LAST TIME MODIFIED ==========> 27 DECEMBER 1985 ‹========== 
CASE SELECTION - 1 EQUIPMENT PROJECT LEVEL REPORT 


CALL EQUIPMENT DATABASE INDEXED ON CONTRACT LINE NUMBER AND FEATURE 
NUMBER AND TOTAL ON QUANTITY. RELATE TO DESCRIP FILE ON FEATURENO. 


X X 3€ % X X % X X ++ X X X X X % X % X X % X % X X % x + 


SET ESCAPE OFF 
SET TALK OFF 
SET COLOR TO W+/B, W+/B, B 
CLEAR 
USE EQUIP 
GO TOP 
IF EOF() - .T. THEN 
SET COLOR TO W+/R, W+/R 
@ 13,24 SAY " The EQUIPMENT Database is EMPTY! "' 
DO DELAY 
RETURN 
ENDIF 
?? FLASH + ''S.REPORTS.SCR/" 
@ 24,0 SAY SPACE(80) 
Ser COLOR TO R+/ , R+/ 
2,25 SAY '' EQUIPMENT PROJECT LEVEL REPORT " 


CREATE THE SPLICE EQUIPMENT PROJECT REPORT AND CHECK IF THE REPORT 
ТО BE PRINTED OR DISPLAYED ON THE SCREEN. 


+ ж ж ж OO 


SET COLOR TO W+/BR, W+/BR 
@ 13,16 SAY " Do you want a printed report? (Yes or No): 
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SET COLOR TO /BR, /BR 

@ 13749 SAY Ys 

@ 13,56 SAY UNS 

STORE "N" TO ACCEPT 

@ 13,62 GET ACCEPT PICTA 
READ 

ж 


ж ENSURE THAT THE USER'S RESPONSE IS EITHER "Y" OR "N" 
* 
DO WHILE .NOT. (ACCEPT = "N" „ОВ. ACCEPT = "yY") 
IF .NOT. (ACCEPT = "М" .OR. ACCEPT = "Y") THEN 
SET COLOR TO W+/R, W+/R 
8а 24,24 SAY '' Response must be either N or Y " 
DO DELAY 
STORE "М" TO ACCEPT 
ENDIF 
SET COLOR TO /BR, /BR 
@ 3,62 GEE ACCEPT PIC Е 
READ | 
ENDDO 
* 
SET COLOR TO /BR, /BR 
8 13,15 SAY SPACE(55) 
* 


SET COLOR TO W;-/BR, W+/BR 
@ 13,19 SAY " COMPUTING TOTALS FOR EACH FEATURE NUMBER "' 
ж 


USE EQUIP INDEX EPEAT 
GO TOP 

SEP CUNS OL P ОБЕ 

ERASE TEMPONE.DBF 

SET CONSOLE ON 

* 


* (COMPUTE THE TOTAL QUANTITY FOR EACH FEATURE NUMBER 
* 


TOTAL ON FEATURENO TO TEMPONE.DBF FIELDS QTY WILLE PEATURENO REO 
* 

SELECT 1 

USE TEMPONE 

SELECT 2 

USE DESCRIP INDEX DESCRIP 

SELECT TEMPONE 

SET RELATION TO FEATURENO INTO DESCRIP 

GO TOP 

ж 


@ 13,15 SAY SPACE(55) 

ж 

IF ACCEPT = "Y" THEN 
?? FLASH + '"W.PRINTER/' 
SET CONSOLE OFF 
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Раде 3 EQPPJRPT.PRG Program Listing 
101 WAIT TO CHOICE 
102 SET CONSOLE ON 
103 SET COLOR TO W/B, W/B 
104 @ 22,10 SAY SPACE(65) 
105 STORE DIOC(DATE()) TO TODAY 
106 STORE SUBSTR(TODAY,4,2) « " " « CMONTH(DATE()) « '' 19" +; 
107 SUBSTR(TODAY,7,2) TO TODATE 
108 STORE 0 TO PAGENO 
109 STORE 61 1O LINECT 
110 SET COLOR TO R+/ , R+/ 
ШИ SET DEVICE TO PRINT 
NT ж 
113 DO WHILE .NOT. EOF() 
114 DO WHILE (LINECT <= 60 .AND. .NOT. EOF()) 
115 @ LINECT,10 SAY DESCRIP->CLIN 
116 @ LINECT,22 SAY FEATURENO 
117 @ LINECT,35 SAY DESCRIP->DESCIPT 
118 @ LINECT,68 SAY QTY 
119 LINECT = LINECT + 1 
120 SKIP 
121 ENDDO WHILE 
1222 ж 
123 От. ТЕМ 
124 IF PAGENO » 1 THEN 
125 @ 62,37 SAY "Page " « STR(PAGENO,2,0) 
126 ENDIF 
127 EJECT 
128 SET DEVICE TO SCREEN 
129 8 13,25 SAY " FINISHED PRINTING THE REPORT " 
130 DO DELAY 
131 EXIT 
132 ELSE 
133 SET DEVICE TO SCREEN 
134 Q 13,27 SAY " Printing Page Number " « STR(PAGENO « 1,2,0) « " " 
135 SET DEVICE TO PRINT 
136 ENDIF 
ШІ ж 
138 IF (LINECT » 60 .AND. PAGENO » 1) THEN 
139 @ 62,37 SAY "Page " « STR(PAGENO,2,0) 
140! ENDIF 
141 | @ 2,25 SAY " EQUIPMENT PROJECT LEVEL REPORT " 
142 @ 4,60 SAY TODATE 
143 @ 6,10 SAY "CLIN FEATURE# DESCRIPTION" 
144 a 6,68 SAY "ОТҮ" 
145 а pe SAY ——————————— ==== 
146 а ne 5 SAY "ЕЕ--------------------------!" 
147 PAGENO - PAGENO + 1 
148! STORE 9 TO LINECT 
149| ж 
150 | ENDDO WHILE .NOT. EOF() 
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Page 4 EQPPJRPT.PRG Program Listing 
ІІІ 
152| ELSE 
1535 SET COLOR TO GR+/B, GR+/B 
154 @ 5,10 SAY "ЕТМ FEATURE# DESCRIPTION" 
155 8 5,68 5АҮ "ОТҮ" 
156 SET COLOR TO /BR, /BR 
157 STORE 0 ТО ЫМЕСТ 
1561 = 
159 DO WHILE .NOT. EOF() 
160 DO WHILE LINECT « 15 
161 @ LINECT+7,10 SAY DESCRIP->CLIN 
162 @ LINECT+7,22 SAY FEATURENO 
163 @ LINECT+7,35 SAY DESCRIP->DESCIPT 
164 @ LINECT+7,68 SAY QTY 
165 НСТ = БЕСТ +. 1 
166 SKIP 
167 IF EOF() - .T. THEN 
T68 SET COLOR TO W+/R, W+/R 
169 @ 24,18 SAY " End of File reached, Press any key to EXIT " 
170 SET CONSOLE OFF 
171 WAIT TO ACCEPT 
1/2 SET CONSOLE ON 
1:23 . EXIT 
174 ENDIF | 
175 ENDDO WHILE LINECT < 15 
176| * 
(7 IP BOF() = .Т. THEN 
178 EXIT 
179 ENDIF 
180 SET COLOR TO R+/B, R+/B 
181 STORE C C ^ TOU CHOICE 
182 @ 22,57 CETP CHODICGESPBICDP т 
183 READ 
184| * 
185| * ENSURE THAT THE USER'S RESPONSE IS EITHER "Y" OR "N" 
186| * 
187 DO WHILE .NOT. (CHOICE s "С OR Отс D 
188 ТЕ NOT. (CHOICE = “С” „бк, сои = шн 
189 SET COLOR TO W+/R, W+/R | 
190 @ 24,24 SAY " Response must be either C or X " 
191 DO DELAY 
192 STORE "C" TO CHOICE 
193 ENDIF 
194 SET COLOR TO R+/B, R+/B 
195 @ 22,57 СЕТ СНОПСЕ РІС N 
196 READ 
197 ENDDO 
1981 “ 
199| * DETERMINE IF THE USER WANTS TO QUIT OR CONTINUE 
20001 * 
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201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 


Раде 5 


IF CHOICE = "cC" 
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SET COLOR TO /BR, 


07,2 
08,2 
09,2 
ТО? 
11,2 
[22 
с? 
14,2 
15,2 
16,2 
17,2 
1272 
19,2 
20,2 
DUM 

STORE 0 
ELSE 

EXIT 
ENDIF 


(о ао ао ао а ао ао ао ао (CD (QD (CD (CD (CD (CD 


ж 


SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 

ТО 


ENDDO WHILE .NOT. 


Ж. 


ENDIF 
ж 


SPACE(76) 
SPACE(76) 
SPACE (76 ) 
SPACE (76) 
SPACE (76 ) 
SPACE (76) 
SPACE (76 ) 
SPACE ( 76 ) 
SPACE ( 76) 
SPACE(76) 
SPACE(76) 
ЅРАСЕ (76) 
SPACE (76 ) 
SPACE (76) 
SPACE(76) 
LINECT 


FOF() 


* ERASE THE TEMPORARY DATABASE USED FOR TOTALS 


* 


CLOSE DATABASES 
БЕР CONSOLE OFF 
ERASE TEMPONE.DBF 
SET CONSOLE ON 


SET PRINT OFF 
* 


* RETURN TO CALLING PROGRAM 


* 


RELEASE ACCEPT, CHOICE, LINECT, PAGENO, TODAY, TODATE 


REIURN 


Page 154 


жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
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Page 1 EQPSTRPT.PRG Program Listing 
* PROCEDURE EQPSTRPT.PRG 
E | 
* AUTHORS : LCDR EDWARD J. CASE, SC, USN 
* LCDR WINSTON H. BUCKLEY, SC, USN 
Í LCDR ROBERT F. BRADO, USN 
* LCDR ROBERT L. BEARD TIT E Са ВЕЩ 
* 
* PURFOSE : PROVIDE THE USER A SPLICE EQUIPMENT SITE 
* LEVEL REPORT FOR A SINGIEESS PEE: 
X Е 
* INPUT FILES : ВООТР.ОВЕ, ЕРЕАТ.МОХ, РЕЗСВТВ. ЮВЕ, ПЕ s IP БИ 
5 TEMPONE.DBF, ЕООІРЅІТ. МОХ 
ж 
ТОРО FILES > NONE. 
* 
* CALLED BY : SITERPTS.PRG 
* MODULES CALLED : DELAY.PRG 
* 
* GLOBAL VARIABLE: HISITE, LOSITE 
& 
* LOCAL VARIABLES: ACCEPT, CHOICE, ERROR, LINECT, MESSAGE, MSITE, 
* PAGENO, TODAY, TODATE 
* 
Ж DATE LAST TIME MODIFIED ==========; О DECEMBER 1985 «---------- 
* 
* CASE SELECTION = 1 EQUIPMENT SITE LEVEL REPORT 
* 
* CALL EQUIPMENT DATABASE INDEXED ON SITE NUMBER, CONTRACT LINE NUMBER 
* AND FEATURE NUMBER AND TOTAL ON QUANTITY. 
* 
SET ESCAPE OFF 


SET TALK OFF 
SET COLOR TO W+/B, W+/B, B 


CLEAR 

USE EQUIP 

GO TOP 

IF EOF() = .T. THEN 
SET COLOR TO W+/R, W+/R 
@ 13,24 SAY " The EQUIPMENT Database is EMPIY! '' 
рО DELAY 
RETURN 

ENDIF 

?? FLASH + "S.REPORTS.SCR/" 

@ 24,0 SAY SPACE(80) 


SET COLOR TO R+/ , R+/ 
@ 2,26 SAY " EQUIPMENT SITE LEVEL REPORT " 
ж 


* ENSURE THAT TEMPORARY DATABASE DOES NOT EXIST, IF SO ERASE IT 
+ 
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SET CONSOLE OFF 
ERASE TEMPONE.DBF 
SET CONSOLE ON 
* 
SET COLOR TO W+/BR, W+/BR 
@ 13,15 SAY "Enter site number for which the report is desired:" 
* 
ES WHILE .T. 
SET COLOR TO /BR, /BR 
STORE LOSITE ТО MSITE 
@ 13,66 GET MSITE PICT '99' 
READ 
ВК ТЕ >= IOSITE AND. MSITE <= HISITE) 
SET COLOR TO W+/R, W+/R 
STORE ' Response must be between ' + LOSITE +; 
‘and ' + HISITE + ' ' TO ERROR 
@ 24,22 SAY ERROR 
DO DELAY 
LOOP 
ELSE 
BSESEQUPPSINDEX EOGUIPSIT 
GO 'IOP 
FIND &MSITE 
Е Тт. THEN 
STORE " No equipment exists for site " + МЅІТЕ +; 
", try another site " TO MESSAGE 
SET COLOR TO W+/R, W+/R 
@ 24,15 SAY MESSAGE 
DO DELAY 
LOOP 
ELSE 
EXIT 
ENDIE FOP( = T. 
ENDIF 
ENDDO WHILE .T. 
* 
SET COLOR TO W+/BR, W+/BR 


13,15 SAY SPACE(55) 
ж 


E CREATE THE SPLICE EQUIPMENT PROJECT REPORT AND CHECK IF THE REPORT 
Í IS TO BE PRINTED OR DISPLAYED ON THE SCREEN. 

* 

@ 13,16 SAY " DO you want a printed report? (Yes or No): " 


SET COLOR TO /BR, /BR 
93,49 SAY "Y" 

@ 13,56 SAY "М" 

STORE '"N" TO ACCEPT 

из 62 GET ACCEPT PICT ":" 
READ 


101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
LU 
112 
p 
114 
ШЕ 
116 
Tg 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
as 
136 
1.57 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 


1 48 | 


149 
150 
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ж ENSURE THAT THE USER'S RESPONSE IS EITHER "У" ОВ "М" 
* 
DO WHILE .NOT. (ACCEPT = "N'' .OR. ACCEPT = "Y"') 
IF .NOT. (ACCEPT - "N" .OR. ACCEPT = "У") ТНЕМ 
SET COLOR TO W+/R, W+/R 
@ 24,24 SAY '' Response must be either N or Y " 
DO DELAY 
STORE "М" TO ACCEPT 
ENDIF 
SET COLOR TO /BR, /BR 
@ 13,62 СЕТ АССЕРТ РІСТ "!" 
READ | 
ENDDO 
SET COLOR TO /BR, /BR 
@ 13,15 SAY SPACE(55) 
* 


SET COLOR TO W+/BR, W+/BR 
@ 13,17 SAY '' COMPUTING TOTALS FOR EACH SITE FEATURE NUMBER " 
ж 


USE EQUIP INDEX EFEAT 

TOTAL ON FEATURENO TO TEMPONE.DBF FIELDS QIY; 
FOR FEATURENO «» 'XXXXXX' .AND. SITENO - '&MSITE' 

SELECT 1 

USE TEMPONE 

SELECT 2 

USE DESCRIP INDEX DESCRIP 

SELECT TEMPONE 

SET RELATION TO FEATURENO INTO DESCRIP 

GO TOP 

* 


@ 13,15 SAY 5РАСЕ(55) 
* 


IF ACCEPT - "y" THEN 
?? FLASH « "W.PRINTER/' 
SET CONSOLE OFF 
WAIT TO CHOICE 
SET CONSOLE ON 
SET COLOR TO W/B, W/B 
@ 22,10 SAY SPACE(65) 
STORE DTOC(DATE()) TO TODAY 
STORE SUBSTR(TODAY,4,2) + " " + CMONTH(DATEC I) MEI 
SUBSTR(TODAY,7,2) TO TODATE 
STORE 0 ТО РАСЕМО 
STORE 61 TO LINECT 
SEP 'COPOR TO R+/ S TR+/ 
SET DEVICE TO PRINT 


DO WHILE .NOT. EOF() 


DO WHILE (LINECT <= 605 АМО 00187007 
@ LINECT,9 SAY SITENO 
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и 
M2 
153 
154 
155 
156 
ШЕ 
158 
159 
160 
161 
162 
163 
164 
165 
166 


Page 4 


167 


168 
169 
170 
(71 
2 
173 
174 
175 
176 
77 
178 
179 
180 
181 
92 
ез 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
[97 
198 


APPENDIX B: MAINTENANCE MANUAL Page 158 


EQPSTRPT.PRG Program Listing 


@ LINECT,17 SAY DESCRIP->CLIN 
@ LINECT,27 SAY FEATURENO 
@ LINECT,39 SAY DESCRIP->DESCIPT 
@ LINECT,71 SAY QTY 
LINECT = LINECT + 1 
SKIP 
ENDDO WHILE (LINECT <= 60 .AND. .NOT. EOF()) 


IF EOF() - .T. THEN 
IF PAGENO > 1 THEN 
@ 62,37 SAY "Раде " « STR(PAGENO, 2,0) 
ENDIF PAGENO > 1 
EJECT 
SET DEVICE TO SCREEN 
Q 13,25 SAY " FINISHED PRINTING THE REPORT ' 
DO DELAY 
EXTE 
ELSE 
SET DEVICE TO SCREEN 
8 13,27 SAY " Printing Page Number " + STR(PAGENO « 1,2,0) « " " 
SET DEVICE TO PRINT 
ENDIF БОЕ() = .Т. 


IF (LINECT » 60 .AND. PAGENO » 1) THEN 

@ 62,37 SAY "Page “ + STR(PAGENO,2,0) 
ENDIF (LINECT > 60 .AND. PAGENO > 1) 
‚25 ЗАУ " EQUIPMENT SITE LEVEL REPORT " 
,60 SAY TODATE 
ДВЕ САША СЕ CLIN FEATURE DESCRIPTION" 
ИДЕ ВАК OLY 
52 
5 


STORE 9 TO LTNECT 


ENDDO WHILE „МОТ. ЕОЕ() 


* 
БЕБЕ 


SET COLOR TO GR+/B, GR+/B 

@ 5,8 SAY "SITE CLIN FEATURE# DESCRIPTION" 
SEE 71 SAY "or" 

SET COLOR TO /BR, /BR 

STORE 0 TO LINECT 


DO WHILE .NOT. EOF() 


199! 


200 


PO WHILE LINECT < 15 


@ LINECT+7,9 SAY SITENO 

@ LINECT+7,17 SAY DESCRIP- >CLIN 

@ LINECT+7,27 SAY FEATURENO 

@ LINECT+7,39 SAY DESCRIP->DESCIPT 
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201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
2107 
218 
219 
220 
221 
2 22 
222 
224 
229 
226 
2207 
228 
229 
230 
23] 
ССА 
233 
234 
235 
236 
257 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
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@ LINECT+7,71 SAY QTY 
МЕСТ = МЕСТ + | 
SKIP 
IF КОК() = T UEN 
SET COLOR TO W+/R, W+/R 
@ 24,18 SAY '' End of File reached, Press any key to EXIT " 
SET CONSOLE OFF 
WAIT TO ACCEPT 
SET CONSOLE ON 
EXT 
ENDIF “BOP () "= Tp. 
ENDPO WHILE LINECT < 15 


ТЕ вв) = роны! 

EXIT 
ENDIF EOF() = .T. 
SET COLOR TO R / B "RB 
STORE "С" ТО СНОТСЕ 
@ 22.57 СЕЕ СТО ТЕЕ PICE: 
READ 


ENSURE THAT THE USER'S RESPONSE IS EITHER "ҮН ОВ "М" 


DO WHILE .NOT. (CHOICE = "C" .OR. CHOICE = "x" 
IF NOT. (CHOICE. “СОТО ЕОНИ ХІ 
SET COLOR ТО W+/R, W+/R 
@ 24,24 SAY " Response must be either Cor Xx " 
DO DELAY 
STORE wc TO CHOICE 
ENDIF NOT. (CHOICE 2 "C" сое и 
SET COLOR TO R+/B, R+/B 
@ 22-57 GET CHOICE РТС ГУ 
READ 
ENDDO WHILE .NOT. (CHOICE + "С. ОВ COITA Ar 


) 
THEN 


DETERMINE IF THE USER WANTS TO QUIT OR CONTINUE 


IESGHOICB 2 с" 

SET COLOR TO /BR, /BR 
07,2 SAY SPACE(76) 
08,2 SAY SPACE(76) 
09,2 SAY SPACE(76) 
10,2 SAY SPACE(76) 
11,2 SAY SPACE(76) 
12,2 SAY SPACE(76) 
13,2 SAY SPACE(76) 
14,2 SAY SPACE(76) 
15,2 SAY SPACE(76) 
16,2 SAY SPACE(76) 
17,2 SAY SPACE(76) 


(о (о (о со (e (о со со со (со (о 
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251 @ 18,2 SAY SPACE(76) 
252 @ 19,2 SAY SPACE(76) 
253 @ 20,2 SAY SPACE(76) 
254 @ 21,2 SAY SPACE(76) 
255 ВЕ О TO EINEGE 
256 ELSE 
75] EXIT 
258 ENDIF CHOICE = "С" 
БЕ) * 
260 ENDDO WHILE .NOT. BOF() 
261| * 4 
262| ENDIF ACCEPT = "y" 
253; * 
264| * ERASE THE TEMPORARY DATABASE USED FOR TOTALS 
265| * 
266| CLOSE DATABASES 
267| SET CONSOLE OFF 
268| ERASE TEMPONE . DBF 
269| SET CONSOLE ON 
270| SET PRINT OFF 
В ж 
272| * RETURN TO CALLING PROGRAM 
273| * 
274| RELEASE ACCEPT, CHOICE, ERROR, LINECT, MESSAGE, MSITE, PAGENO,; 
275 TODAY, TODATE 
276| RETURN 
РПН | жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжкжжжжж кжж 
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Page 1 EQUIPCMD.PRG Program Listing 
1| * PROCEDURE EQUIPCMD.PRG 
DNE 
3| * AUTHORS : LCDR EDWARD J. CASE, SC, USN 
4| * LCDR WINSTON H. BUCKLEY, SC, USN 
ә; LCDR ROBERT F. BRADO, USN 
СП LCDR ROBERT L. BEARD III, SC, USN 
ЖЕ 
8t * PURPOSE : PROVIDE THE USER THE OPPORTUNITY TO MODIFY ОК КЕУШЕЦ 
Ss ALL DATA IN THE EQUIPMENT DATABASE. 
О" 
11| * INPUT FILES : МОМЕ 
Zi 
ТЭ SSOUTPUTSEILDE : NONE 
14}. * 
15! * MODULES CALLED ; EQUIPUPD.PRG. EQUIPREV PRG 
lo; 
171 * CALLED By : MAINMENU.CMD 
TOSS l 
19| * LOCAL VARIABLES: SELEKT 
ДО + 
21| * DATE LAST TIME MODIFIED 222-2------» 22 DECEMBER 1985 <========== 
22 |2 
23} * DISPLAY THE PROCESS MENU TO THE USER AND WAIT FOR THE 
24| * SELECTION. 
* 
S 


26| STORE "1" TO SELEKT 

27| DO WHILE SELEKT < "3" 

28 SET COLOR TO W/B, W/B 

29 CLEAR 

30 ?? FLASH « "W.EQUIPCMD/" 

31 SET CONSOLE OFF 

32 WAIT TO SELEKT 

33 SET CONSOLE ON 

34| * 

35| * PROCESS ROUTINE BASED ON THE USER'S SELECTION. 
36| * 

27 ГО СА5Е 

38| * 

39| * CALL THE EQUIPMENT UPDATE PROGRAM. 
40 CASE SELEKT - '1" 

41 DO EQUIPUPD 

42] * 

43| * CALL THE EQUIPMENT REVIEW PROGRAM. 
44 CASE SELEKT = "2" 

45 DO EQUIPREV 

46| * 

47| * RETURN TO THE MAIN MENU PROGRAM. 
48l CASE SELEKT = "3" 

49| * 

50 ENDCASE 
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| * 
52| ENDDO (WHILE SELEKT = ''3") 
ES] * 
54| * RETURN TO THE CALLING PROGRAM 
ES| * 
56| RETURN 


57| ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ ЖЖЖЖЖЖЖ ЖЖ a OO OKO OCR IC IO Far IRI IK 
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* PROCEDURE EQUIPREV. PRG 
ж 
* AUTHORS : LCDR EDWARD J. CASE, SC, USN 
* LCDR WINSTON H. BUCKLE? T CTO N 
Ж LCDR ROBERT F. BRADO TS Ushi 
* LCDR ROBERT L. BEARD III, SC, USN 
* 
* PURPOSE < TO ENABLE THE USER TO REVIEW ALL RECORDS ІМ ІШЕ | 
* EQUIPMENT DATABASE. | 
* 
* INPUT FILES : EQUIP.DBF INDEX EQUIPSIT.NDX | 
* 
* OUTPUT FILES : NONE 
* 
* CALLED BY : EQUIPCMD.PRG 
ж 
* MODULES CALLED : DELAY.PRG 
* 
* GLOBAL VARIABLE: HIDATE, HIFNUM, HISITE, LODATE, LOFNUM, LOSITE 
* 
* LOCAL VARIABLES: CURRENTNO, EOF, ERROR, FIRST REC, LAST REC, MCLIN, 
m MDESCIPT, MESSAGE, MSITE, MPEAT, TOP 
* 
+ DATE LAST TIME MODIFIED ==========> 23 DECEMBER 1985 с======—==>=== 
ж 
* CASE SELECTION - 2 REVIEW EQUIPMENT FILE RECORDS 
* 
* USE EQUIPMENT DATABASE INDEXED ON SITE NUMBER AND WAIT FOR THE 
* USER TO INPUT THE SITE NUMBER, THEN START REVIEWING FROM THAT POTNIS 
* 


SET ESCAPE OFF 
SET TALK OFF 
SELECT 1 
USE EQUIP 
GO TOP 
SET COLOR TO W+/B, W+/B, B 
CLEAR 
IF EOF() = .T. THEN 
SET COLOR TO W+/R, W+/R 
@ 13,24 SAY “ The EQUIPMENT Database is EMPTY! " 
DO DELAY | 
RETURN 
ENDIF 
?? FLASH + '"S.EQUIPREV.SCR/' 
@ 24,0 SAY SPACE (80) | 
STORE “Enter 00 to start at TOF, 99 to start at BOF, or a site number и 
"between 01 and 58 " TO MESSAGE 
SET COLOR TO /W, /W 
@ 24,0 SAY MESSAGE 
STORE '88' TO MSITE 
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DO WHILE .NOT. ((MSITE >= '00' .AND. MSITE «- HISITE) .OR. MSITE - '99') 
SET COLOR TO /BR, /BR 
STORE '00' TO MSITE 
@ 9,20 СЕТ МЅІТЕ РІСТ '99' 
READ 
IF .NOT. ((MSITE »- '00' .AND. MSITE <= HISITE) .OR. MSITE - '99') 
SET COLOR TO W/B, W/B 
@ 24,0 SAY SPACE(80) 
SET COLOR TO W+/R, W+/R 
STORE ' Response must be between ' + LOSITE + ' and ' +; 
HISITE + ', Zero (00) or 99 ' TO ERROR 
а 24,13 SAY ERROR 
DO DELAY 
SET COLOR TO /W, /W 
@ 24,0 SAY MESSAGE 


LOOP 
ELSE 
IF (MSITE = '00' .OR. MSITE = '99') THEN 
USE EQUIP 
IF MSITE = '00' THEN 
GO BOTIOM 
STORE RECNO() TO LAST REC 
GO TOP ! 
STORE RECNO() TO FIRST REC 
ELSE Е 
IF MSITE = '99' THEN 
GO TOP 
STORE RECNO() TO FIRST REC 
GO BOTTOM 


STORE RECNO() TO LAST REC 
ENDIF MSITE - '99' 
ENDIF MSITE = '00' 





ELSE 
USE EQUIPSENDEX EOUIPSIY, EDUIPPRI, EQUIPDAT, EQUIPSD 
GO TOP 
FIND &MSITE 
ЕО т. ТЕМ 
SET COLOR TO W/B, W/B 
@ 24,0 SAY SPACE(80) 
STORE " No records exist for site number " « MSITE +; 
", try again " TO ERROR 
SET COLOR TO W«/R, W«/R 
@ 24,16 SAY ERROR 
DO DELAY 
SET COLOR TO /W,  /W 
@ 24,0 SAY MESSAGE 
STORE '88' TO MSITE 
ENDIF 
ENDIF 
ENDIF 
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101| ENDDO WHILE 


Page 165 


102| * 

103| STORE SPACE(10) « 'Enter "00 " to start at TOF or a six digl 9 
104 ‘feature number' + SPACE(10) TO MESSAGE 

1051 ТЕ (MSITE >= LOSITE „АО. МЕ <= ЕЕ hili 

106 SET COLOR TO /W, /W 

107 @ 24,0 SAY MESSAGE 

108 BDO WHILE ‚Т, 

109 SET COLOR TO /BR, /BR 

110 STORE '00 ' TO MFEAT 

11] @ 14,45 GET MFEAT PICT '999999' 

lez READ 

113 IF .NOT. ((MFEAT »- LOFNUM .AND. MPEAT <= HIFNUM) .OR.; 
114 МЕЕАТ = '00 ' .OR. MFEAT - '99 ') 
115 SET COLOR TO W/B, W/B 

116 @ 24,0 SAY SPACE(80) 

117 SET COLOR TO W+/R, W+/R 

118 STORE ' Response must be between ' « LOFNUM « ' and ' +; 
119 HIFNUM + ', Zero (00) or 99 ' TO ERROR 
120 @ 24,8 SAY ERROR 

121 DO DELAY 

122 SET COLOR TO /W, /W 

123 @ 24,0 SAY MESSAGE 

124 LOOP 

125 ELSE 

126 IF MFEAT - '00 ' THEN 

127 EXIT 

128 ENDIF 

129 IF (MFEAT >=  LOFNUM- „АКО. МЕВАТ СС ИРЕК 
130 STORE MSITE « MFEAT TO MKEY 

131 USE EQUIP INDEX EOGUIPDAT 

132 GO TOP 

зз FIND &MKEY 

134 ТЕ BOR) <= Tp НИ 

135 SET COLOR TO W/B, W/B 

136 a 24,0 SAY SPACE(80) 

137 SET COLOR TO W+/R, W+/R 

138 @ 24,12 SAY ' No record exists for feature number ‘ +; 
139 МЕЕАТ + ', try again ' 
140 DO DELAY 

141 SET ОРО ИИ 

142 @ 24,0 SAY MESSAGE 

143 LOOP 

144 ELSE 

145 EST 

146 ENDIF-EBOE() = 12 

147 ENDIF 

148 ENDIF (MFEAT »-  LOFNUM .AND. MFEAT <= HIFNUM) 

149 ENDDO WHILE 


150]| ENDIF „МОТ. (М5ТТЕ >= LOSITE .OR. MSITE ОСЕ 
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151 
152 
3 
154 
ШЕ 2 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
072 
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* 
SET COLOR TO W/B, W/B 

@ 24,0 SAY SPACE(80) : 

STORE " At beginning of records for site number " +; 


MSITE « " " TO TOF 
STORE " At end of records for site number " « MSITE « " " TO EOF 
DO WHILE „Т. 


SET COLOR TO R+/B, R+/B 

8 6,47 SAY RECNO() РІСІ "999" 

STORE FEATURENO TO MFEAT 

SELECT 2 

USE DESCRIP INDEX DESCRIP 

FIND &MFEAT 

STORE CLIN TO MCLIN 

STORE DESCIPT TO MDESCRIP 

SELECT 1 

SET COLOR TO /BR, /BR 

9,20 SAY SITENO PICT "99" 

9,68 SAY EFFDATE PICT "999999" 

13,45 SAY MCLIN PICT "9999" 

14,45 SAY FEATURENO PICT "999999" 
ША СА MDESCRIP РІСР Ттігигігггтггг мге 
16,45 SAY ОТҮ РІСІ "999" 

18,50 SAY UNIT PRICE РІСІ "99999999,99" 
19,50 5АҮ МО МАІМТ РІСІ "99999999,99" 
ОСЗ SAY UNTA INSTA PICT "99999.99" 
SET COLOR TO R+/B, R+/B 

STORE "N" TO CHOICE 

8822.68 GET CHOICE PICT "i" 

READ 


DD (QD (£D (£D (£D (QD (CD (CD MD 


x 


ENSURE THAT THE USER'S PROMPT IS EITHER "N", "P" OR "x" 


DO WHILE „МОТ. (CHOICE - "N" .OR. CHOICE - "P" ,OR. CHOICE = "Х") 
IF „МОТ. (CHOICE = "N’ .OR. CHOICE = "P" .OR. CHOICE = '"X") THEN 
SET COLOR TO W+/R, W+/R 
@ 24,23 SAY " Response must be either N, P or X " 
DO DELAY 
STORE "М" TO CHOICE 
ENDIF 
SET COLOR TO R+/B, R+/B 
UN 7 coerce) CHOIGE PrICcr "t" 
READ 
ENDDO 


II 


* 
* SKIP TO THE NEXT RECORD TO BE REVIEWED 
* 

IF CHOICE = "М" THEN 


ШӨГЕ > ГОЗИЕВ АМр. MSITE <= HISITE) THEN 
SKIP 
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201 TR CBOE S T THEN 
202 SKIP - 1 
203 SET COLOR TO W+/R, W+/R 
204 @ 24,21 SAY BOF 
205 DO DELAY 
206 ELSE 
207 IF NOP. (SITENO ="MSITE) STHEN 
208 SERERE 1 | 
209 SET COLOR TO W+/R, W+R 
210 @ 24,21 SAY BOF 
211 DO DELAY 
212 ENDIF 
2153 ENDIF (BOR) <=> 21. 
214 ELSE e 
215 IF RECNO() = LAST REC THEN | 
216 GO TOP 
217 ELSE 
218 SKIP 
219 ENDIF 
220 ENDIF (MSITE >= LOSITE ТАМО. МЕТЕ = УИ) 
221 ENDIF CHOICE = "N" 
2.2 pt 
223| * SKIP TO THE PREVIOUS RECORD 
лак 
225 IF CHOICE = "P" THEN 
226 STORE RECNO() TO CURRENTNO 
227 IF (MSITE >= LOSITE .AND. MSITE <= HIST Shen 
228 SKIP - 1 
229 It ВЕТ 
2:30 GOTO CURRENTNO 
23] SET COLOR TO W+/R, W+/R 
232 @ 24,16 SAY TOF 
233 DO DELAY 
234 ELSE 
235 ТЕ .NOT. (SITENO = MSITE) THEN 
236 | SKIP 
237 SET COLOR TO W+/R, W+/R 
238 @ 24,16 SAY TOF 
239 DO DELAY 
240 ENDIF 
241 ENDIF-BOF( J =T T. 
242 ELSE 
243 IF RECNOL[) = FIRSE REC THEN 
244 GO BOTTOM 
245 ELSE 
246 SKIP - 1 
247 ENDIF 
248 ENDIF (MSITE >= LOSITE ANDA MSITE <S HI TEI 
249 ENDIF CHOICE = "p" 
250]. * 
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253 
254 
259 
256 
257 
258 
259 
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* USER HAS DECIDED TO EXIT THE REVIEW 
* 
IF CHOICE = "x" 
EXIT 
ENDIF 
ENDDO WHILE .T. 
* 


* RETURN TO CALLING PROGRAM. 

* 

RELEASE ALL LIKE M*, CURRENTNO, EOF, ERROR, FIRST REC, LAST REC, TOF 
CLOSE DATABASES 


RETURN 
жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
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* PROCEDURE BQUIPUPD. PRG 
* 
* AUTHORS : LCDR EDWARD J. CASE, SC, USN 
* LCDR WINSTON H. BUCKLEY SCHUH 
m LCDR ROBERT F. BRADO, SC; USN 
* LCDR ROBERT L. BEARD IID SU 
* 
* PURPOSE : TO ENABLE THE USER TO MODIFY ANY DATA ELEMENT IN 
* THE EQUIPMENT DATABASE. 
* 
* INPUT FILES : EQUIP.DBF, INDICES: EQUIPPRJ.NDX, EQUPESTIUE 
T EQUIPDAT.NDX, EQUIPSD.NDX 
* 
* OUTPUT FILES : EQUIP.DBF, INDICES: EQUIPPRJ.NDX, EQUIPSITINDE 
Í EQUIPDAT.NDX, EQUIPSD.NDX 
* 
т СЛЕ BY : EQUIPCMD.PRG 
* 
* MODULES CALLED : DELAY.PRG 
* 
* GLOBAL VARIABLE: HIDATE, HIFNUM, HISITE, LODATE, LOFNUM, LOSITE 
* j 
* LOCAL VARIABLES: MEFFDATE; MSITE, MSIIBE, MFEAT SMPRICES 
= MMAINT, MINSTALL, MOTY, MESSAGE 
ACCEPT A CHOT CE; CURRENTNO, BOF, ERROR; FIRSES REC, 
za INTRO, LAST REC, TOF 
* 
* DATE LAST TIME MODIFIED ----------» 23 DECEMBER 1985 <========== 
* ; 
* CASE SELECTION = 1 UPDATE EXISTING RECORDS 
* 
* USE EQUIPMENT DATABASE USING THE SITE NUMBER INDEX, BUT UPDATING 
* ALL EQUIP FILE RELATED INDICES, ASK THE USER TO INPUT A SITE 
* NUMBER THEN START UPDATING FROM THAT POINT. 
* 
SET ESCAPE OFF 
SET TALK OFF 
USE EQUIP 
GO TOP 
SET COLOR TO W+/B, W+/B, B 
CLEAR 
ШЕ НОЕ рол ро Съвет 
SET COLOR TO W+/R, W+/R 
@ 13,24 SAY " The EQUIPMENT Database is EMPTY! " 
DO DELAY 
RETURN 
ENDIF 
?? FLASH + '"S.EQUIPUPD.SCR/' 
Q 24,0 SAY SPACE(80) 
STORE "Enter 00 to start at TOF, 99 to start ab BOF) or MEAM 
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"number between " « LOSITE + " апа " + НІЅІТЕ + " ' TO MESSAGE 
SET COLOR TO /W, /W 
@ 24,0 SAY MESSAGE 
STORE '88' TO MSITE 
DO WHILE .NOT. ((MSITE >= '00' .AND. MSITE <= HISITE) .OR. MSITE - '99') 
SET COLOR TO /BR, /BR 
STORE '00' TO MSITE 
Q 8,20 GET MSITE PICT '99' 
READ 
ТЕ .NOT. ((MSITE >= '00' .AND. MSITE <= HISITE) .OR. MSITE - '99') 
SET COLOR TO W/B, W/B | 
@ 24,0 SAY SPACE(80) 
SET COLOR TO W+/R, W+/R 
STORE ' Response must be between ' + LOSITE + ' and ' + HISITE +; 
', Zero (00) or 99 ' TO ERROR 
@ 24,13 SAY ERROR 
DO DELAY 
SET: COLOR TO /W, /W 


@ 24,0 SAY MESSAGE 
LOOP 
ELSE 
IF (MSITE = '00' .OR. MSITE = '99') THEN 
USE EQUIP 
IF MSITE = '00' THEN 
GO BOTTOM 
STORE RECNO() TO LAST REC 
GO TOP 
STORE RECNO() TO FIRST REC 
ELSE 
IF MSITE - '99' THEN 
GO TOP 
STORE RECNO() TO FIRST REC 
GO BOTTOM 


STORE RECNO() TO LAST REC 
ENDIF MSITE - '99' 
ENDIF MSITE - '00' 
ELSE 
USE EQUIP INDEX EQUIPSIT, EQUIPPRJ, EQUIPDAT, EQUIPSD 
GO TOP 
FIND &MSITE 
Te ЕОЕС) = .T. THEN 
SET COLOR ТО W/B, W/B 
@ 24,0 SAY SPACE(80) 
STORE » No secords exist for site number " + MSITE +; 
", try again " TO ERROR 
SET COLOR TO W«/R, W«/R 
@ 24,16 SAY ERROR 
DO DELAY 
SET COLOR 1O /W,  /W 
@ 24,0 SAY MESSAGE 
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101 STORE '88' TO MSITE 
102 ENDIF 
103 ENDIF 
104 ENDIF 


105; ENDDO WHILE .NOT. ((MSITE »- "00" „АКО. MSITE <= HISITE) .OR. MSITE = '99') 
ТОБЕ 


107| STORE SPACE(10) + 'Епёег "00 " to start at TOF or a six dig t NE 
108 'feature number' « SPACE(10) TO MESSAGE 

109] IP (MSITE »- LOSITE .AND. MSITE «S HPSEIBS)CPHBI 

То SET COLOR TO /W, /W 

111 Q 24,0 SAY MESSAGE 

112 DO WHILE ТР; 

113 SET COLOR TO /BR, /BR 

114 STORE '00 ' TO MFEAT 

115 @ 11,45 GET MFEAT PICT '999999' 

116 READ 

117 IF .NOT. ((MFEAT >= LOFNUM .AND. MPEAT <= НТЕМОМ НОВ 
1181. MFEAT = "00 ' .OR. MFEAT + "99 o 
119 SET COLOR TO W/B, W/B 

120 @ 24,0 SAY SPACE(80) 

121 SET COLOR TO W+/R, W+/R 

122 STORE ' Response must be between ' « LOFNUM + ' and ' +; 
023 HIFNUM « ', Zero (00) or 99 ' TO ERROR 
124 * @ 24,8 SAY ERROR 

125 DO DELAY 

126 SET COLOR TO /W, /W 

127 @ 24,0 SAY MESSAGE 

128 LOOP 

129 ELSE 

1 30 IF MFEAT - '00 ' THEN 

131 EXIT 

132 ЕМОТЕ 

1.33 IF (MFEAT >= LOFNUM .AND. MFEAT «s HIENUM) 

134 STORE MSITE + MFEAT TO MKEY 

135 USE EQUIP INDEX EQUIPDAT 

136 GO TOP 

Lay FIND &MKEY 

138 ТЕ ВОт 

139 SET COLOR TO W/B, W/B 

140 @ 24,0 SAY SPACE(80) 

141 SET COLOR TO W+/R, W+/R 

142 STORE ' No record exists for feature number ' +; 
143 MFEAT + ', try again ' O ERFOR 
144 @ 24,12 SAY ERROR 

145 PO DpEPA Y 

146 SET COLOR TO /W, /W 

147 @ 24,0 SAY MESSAGE 

148 LOOP 

149 ELSE 

150 | EXIT 
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251 ENDIF EOR) = T. 
152 ENDIF (MFEAT >= LOFNUM .AND. MFEAT <= HIFNUM) 
153 ENDIF 
154 ENDDO WHILE .T. 
ЖЕН ЕМІР .NOT. (MSITE >= LOSITE „ОВ. MSITE <= HISITE) 
NS * 


157| SET COLOR TO W/B, W/B 

E a 24,0 SAY SPACE(80) 

159| STORE " At beginning of records for site number " +; 

160 MSITE « " " TO TOF 

161| STORE " At end of records for site number " « MSITE + " '" TO EOF 

162| STORE SPACE(16) + ‘Press "Page Down" key to terminate record update’ +; 
163 SPACE( 16) ТО MESSAGE 

164! STORE 1 TO INTRO 

E BO WHILE .T. 


166 SET COLOR TO /W, /W 

167 @ 24,0 SAY MESSAGE 

168| * 

169| * STORING THE OLD RECORD TO A WORK RECORD AREA. THE M PREFIX 
170| * INDICATES MEMORY VARIABLES DISTINGUISHING THEM FROM THEIR 
171| * CORRESPONDING DATABASE FIELDS. 

Ш2| х | 

173 STORE UNIT PRICE TO MPRICE 

174 STORE MO MAINT TO MMAINT 

175 STORE UNIT INSTA TO MINSTALL 

176 STORE QTY TO MQTY 

77 STORE FEATURENO TO MFEAT 

178 SELECT 2 

179 USE DESCRIP INDEX DESCRIP 

180 FIND &MFEAT | 

181 STORE DESCIPT TO MDESCIPT 

182 SELECT 1 

uHS3| * 

184| * INFORM THE USER OF HOW TO TERMINATE THE UPDATE OF A RECORD 
[85| * 

186 IF INTRO - 1 THEN 

187 STORE 0 TO INTRO | 

188 ?? FLASH « "W.EQUIPUPD/" 

189 SET CONSOLE OFF 

190 WAIT TO ANS 

191 SET CONSOLE ON 

192 ENDIF 

og) * 

194 SET COLOR TO R+/B, R+/B 

195 @ 5,47 SAY RECNO() PICT "999" 

1964 | SET COLOR TO /BR, /BR 

197 @ 8,20 SAY SITENO PICT ' 99" 

198 @ 8,68 SAY EFFDATE РІСТ "999999" 

199 @ 11,45 SAY MFEAT PICT "999999" 

200 ЕЕ ГИС Сду МБЕЗСІРТ РІСІ "ҮРІПІРІШІРГІІІШІГІЛІГІНГІІ!" 
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241 
242 
243 
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ж 


Ж 


8 13,45 5АҮ МОТҮ РІСІ "999" 

@ 15,50 GET MPRICE PICT "99999999.99" 

@ 16,50 GET MMAINT PICT "99999999.99" 

@ 17,53 GET MINSTALL PICT "99999.99" 

READ 

SET COLOR TO W/B, W/B - 
@ 24,0 SAY SPACE(80) | 


IF .NOT. (QTY-MQTY .AND. UNIT PRICE-MPRICE .AND.; | 
MO MAINT-MMAINT .AND. UNIT INSTA-MINSTALL) THEN 


ASK THE USER IF HE/SHE DESIRES TO ACCEPT THE CHANGES. 


SET COLOR TO W«/B, W«/B | 
@ 19,12 SAY "Do you want to accept the changes? (Yes or No): " 
SET COLOR TO R+/B, R+/B 

а 19,49 SAY "v" 

@ 19,56 ЗАУ "М" 

STORE "N" TO ACCEPT 

@ 19,62 СЕТ АССЕРТ РТСТ "!" 

READ 


ENSURE THAT THE USER'S PROMPT IS EITHER "Y" OR "N" 


DO WHILE .NOT. (ACCEPT = "N" .OR. ACCEPT s "y") 
IF .NOT. (ACCEPT s "N'" .OR. ACCEPT = Е) ТЕЦ 
SET COLOR TO W/B, W/B 
@ 24,0 SAY SPACE(80) 
SET COLOR TO W+/R, W+/R 
@ 24,24 SAY " Response must be either N or Y " 
DO DELAY 
STORE "№" ТО ACCEPT 
ENDIF 
SET COLOR TO R+/B, R+/B 
а 19 62 GET ACCEPT PIC |" 
ВЕАО 
ENDDO 
@ 19,62 SAY 72 


IF ACCEPT = "Y" THEN 
REPLACE UNIT PRICE WITH MPRICE 
REPLACE MO MAINT WITH MMAINT 
REPLACE UNIT INSTA WITH MINSTALL 
REPLACE QTY WITH MQTY 
ENDIF 
ENDIF 


SET COLOR TO W/B, W/B 


@ 19,10 SAY SPACE(60) 
SET COLOR TO R+/B, R+/B 


uU 
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STORE "N' TO CHOICE 
@ 21,68 GET CHOICE PICT ":" 
READ 


ж ENSURE THAT THE USER'S PROMPT IS EITHER "N", "P" OR "X" 


DO WHILE .NOT. (CHOICE - "N" .OR. CHOICE - "P" ,OR. CHOICE - "Х") 
IF .NOT. (CHOICE - "N" ,OR. CHOICE - "P" ,OR. CHOICE - "X") THEN 
SET COLOR TO W/B, W/D 
@ 24,0 SAY SPACE(80) 
SET COLOR TO W+/R, W+/R | 
8 24,23 SAY “ Response must be either N, P or X " 
DO DELAY 
STORE "N' TO CHOICE 
ENDIF 
SET COLOR TO R+/B, R+/B 
В 21,68 GET CHOTRGEMPICT "i" 
READ 
ENDDO 


* SKIP TO THE NEXT RECORD TO BE REVIEWED 


IF CHOICE = "N" THEN 
IF (MSITE >= LOSITE .AND. MSITE <= HISITE) THEN 
SKIP 
ТЕ ЕОЕ() = .T. THEN 
SKIP - 1 
SET COLOR TO W+/R, W+/R 
@ 24,21 SAY EOF 


DO DELAY 
ELSE 
Ше OSTIO MSITE) THEN 
SKIP - 1 


SET COLOR TO W+/R, W+R 
@ 24,21 SAY EOF 


DO DELAY 
ENDIF 
ENDIF EOF() - .T. 
ELSE 
IF RECNO() - LAST REC THEN 
GO TOP 
ELSE 
SKIP 
ENDIF 


ENDIF (MSITE >= LOSITE .AND. MSITE <= HISITE) 
ENDIF CHOICE = "№" 


* SKIP TO THE PREVIOUS RECORD 





IF CHOICE = "Р" THEN 
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301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
222 
323 
324 
325 
326 
B2 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340. 


STORE RECNO() TO CURRENTNO 
IF (MSITE »- LOSITE .AND. MSITE «- HISITE) THEN 
SKIP - 1 
ТЕ BOR) НЕН 
GOTO CURRENTNO 
SET COLOR TO W+/R, W+/R 
@ 24,16 SAY TOF 
DO DELAY 
ELSE 
IF .NOT. (SITENO = MSITE) THEN 
SKIP | 
SET COLOR TO W+/R, W+/R 
@ 24,16 SAY TOF 
DO DELAY 
ENDIF 
ENDIF BOF() = .T. 
ELSE 
IF RECNO() - FIRST REC THEN 
GO BOTTOM 
ELSE 
SKIP – 1 
ENDIF 
ENDIF (MSITE »- LOSITE .AND. MSITE «- HISITE'58') 
ENDIF CHOICE = "Р" 
че 


* USER HAS DECIDED TO EXIT THE REVIEW 
* 
IF CHOICE = "x" 
EXIT 
ENDIF 
Ж 


ENDDO WHILE .T. 
* 


* RETURN TO CALLING PROGRAM, 

* 

RELEASE ALL LIKE M*, ACCEPT, CHOICE, CURRENTNO, EOF, ERROR,; 
FIRST REC, INTRO, LAST REC, TOF 

CLOSE DATABASES 

RETURN 
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PROCEDURE MAINMENU. PRG 


AUTHORS : LCDR EDWARD J. CASE, SC, USN 
LCDR WINSTON H. BUCKLEY, SC, USN 
LCDR ROBERT F. BRADO, USN 
LCDR ROBERT L. BEARD III, SC, USN 


PURPOSE : PROVIDE THE USER THE CHOICE OF LOADING A NEW DELIVERY, 
ORDER, MAINTAINING THE EQUIPMENT, MANUAL, AND 
SERIAL NUMBER DATA BASES OR GETTING A SERIES OF 
REPORTS FROM THESE UPDATED DATABASES. 


INPUT FILES : NONE. 

OUTPUT FILES : NONE. 

CALLED BY : SELECTOR. PRG 

MODULES CALLED : NEWDOCMD.PRG, EQUIPCMD.PRG, MANULCMD.PRG, 


SERNOCMD.PRG, REPORCMD.PRG, DESPMOD.PRG, 
CONFMOD.PRG.,  DELAY.PRG, MAINTDO.PRG, MKLABELS.PRG 


GLOBAL VARIABLES : HIDATE, HIFNUM, HISITE, LODATE, LOFNUM, LOSITE 
LOCAL VARIABLES : ANS 
DATE LAST TIME MODIFIED ==========> 23 DECEMBER 1985 <---------- 


DBASE PROGRAM CONFIGURATION VARIABLES: 


X X % X X X X X X X X X X X X X X X X X X X X X X X X X Ж 


SET BELL OFF 

SET CONSOLE ON 

SET INTENSITY OFF 

SET SCOREBOARD OFF 

SET TALK OFF 

PUBLIC HIDATE, HIFNUM, HISITE, LODATE, LOFNUM, LOSITE 
* 


* TINITIALIZE THE PUBLIC VARIABLES 
* 

STORE '991231' TO HIDATE 

STORE '994001' TO HIFNUM 

STORE '58' TO HISITE 

STORE '840101' TO LODATE 

STORE '000101' TO LOFNUM 
STORE '01' TO LOSITE 

ж 


* DISPLAY THE PROCESS MENU TO THE USER AND WAIT FOR THE USER'S CHOICE. 
* 


STORE "1" TO ANS 


DO WHILE .T. 
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51 FLASH - CHR(145) 

52 SET COLOR TO W/B, W/B, B 

53 ?? FLASH « "S.MAINMENU.SCR/" 

54 @ 24,0 SAY SPACE (80) 

55 SET COLOR TO R+/B, R+/B 

56 @ 22,53 GET ANS PICT "9" 

57 READ 

581 * 

59! * PERFORM APPROPRIATE TASK BASED ON THE USER'S CHOICE. 
60| * | 

61 DO CASE 

621% 

Бар Е CALL THE NEW DELIVERY ORDER LOAD COMMAND PROGRAM. 
64 CASE ANS = "1" 

65 DO NEWDOCMD 

66 STORE "1" TO ANS 

67| * 

68| * CALL THE EQUIPMENT FILE MAINTENANCE COMMAND PROGRAM. 
69 CASE ANS = "2" 

70 DO EQUIPCMD 

71 STORE '"2'".TO ANS 

А 

Tales CALL THE DESCRIPTION FILE MAINTENANCE COMMAND PROGRAM, 
74 CASE ANS = "3" 

75 DO DESPMOD 

76 STORE "3" TO ANS 

77| * 

78| * CALL THE SITE CONFIGURATION FILE MAINTENANCE COMMAND PROGRAM. 
79 CASE ANS = "4" 

80 DO CONFMOD 

81 STORE "4" TO ANS 

82| * 

83| * CALL THE MANUAL FILE MAINTENANCE COMMAND PROGRAM. 
84 CASE ANS - "5" 

85 DO MANULCMD 

86 STORE "5" TO ANS 

87} * 

88| * CALL THE SERIAL NUMBZR MAINTENANCE COMMAND PROGRAM. 
89 CASE ANS = "6" 

90 DO SERNOCMD 

91 STORE "6" ТО ANS 

92| * 

93| * CALL THE REPORTS GENERATION COMMAND PROGRAM. 

94 CASE ANS = "7" 

95 DO REPORCMD 

96 STORE "7 А 

971 * 

98| * CALL THE MAINTENANCE DELIVERY ORDER GENERATION PROGRAM 
99 CASE ANS = "8" 
100 DO MAINTDO 


314 


101 


102| 


103 
104 
105 
106 
107 
108 
ІШЕ 
110 
111 
112 
113 
114 
[15 
116 
ІШ? 
118 
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STORE ''8'' TO ANS 


CALL THE MAILING LABELS GENERATION PROGRAM 
CASE ANS - "9" 

DO MKLABELS 

STORE "9" TO ANS 


RETURN THE USER TO SELECTOR PROGRAM CONTROL. 
CASE ANS = "0" 

CLOSE DATABASES 

RETURN 


ENDCASE 


* CONTINUE PROCESSING LOOP CONTROL CHECK. 


* 


ENDDO WHILE .T. 
жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


ne 
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PROCEDURE MAINTDO.PRG 

AUTHORS ; LCDR EDWARD J. CASE, 567 ШӘП 
LCDR WINSTON H. BUCKLEY, SC, USN 
LCDR ROBERT F. BRADO, USN 
LCDR ROBERT L. BEARD II 51 

PURPOSE : PROVIDE THE INPUTS FOR A MAINTENANCE DELIVERY 
ORDER, WHICH WILL BW IMPORTED INTO LOTUS 1-2-3. 


INPUT FILES : EQUIP.DBF, DESCRIP.DBF, DECSRIP.HDX OMUEPRMESENE DES 
EFEAT.NDX. TEMOTWO.DBF, TEMPTHRE.DBP, ТЕМРЕОПЦЕ ВЕЩ 

OUTPUT FILE : NEWDO.PRN 

CALLED BY : MAINMENU.PRG 


MODULES CALLED : DELAY.PRG 
GLOBAL VARIABLE: HISITE, LOSITE 
LOCAL VARIABLES: ERROR, MESSAGE, MSITE, NOFIND, RATES, SITES 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
* 
* 
* DATE LAST TIME MODIFIED ==========> 27 DECEMBER 1985 <========== 
ж 
SET ESCAPE OFF 
SET TALK OFF 
SET COLOR TO W+/B, W+/B, B 
CLEAR 
?? FLASH + "S.MAINTDO.SCR/" 
@ 24,0 SAY SPACE(80) 
STORE " Enter the number of the site for which the maintenance ШШ 

"to be performed " TO' SITES 
STORE SPACE(20) « " Enter the Discount and Escalation Rates " +; 

SPACE( 20) ТО RATES 
SET COLOR TO /BR, /BR 
@ 20,57 SAY " NEWDO.PRN " 
ж 


* OBTAIN THE NUMBER OF THE SITE TO RECEIVE THE MAINTENANCE FROM THE USER 
* 


USE EQUIP INDEX EQUIPSIT.NDX 
* 


DO WHIBET. 
SET COLOR TO /W, /W 
@ 24,0 SAY SITES 
SET COLOR TO R+/B, R+/B 
STORE LOS MIE TOT MSITE 
а 04.65 GET MSITE PIC 99. 
READ 
IF .NOT. (MSITE >= LOSITE .AND. МЕ = isi Ri 


зо 
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5] SET COLOR TO W/B, W/B 
52 @ 24,0 SAY SPACE(80) 
53 SET COLOR TO W+/R, W+/R 
54 STORE ' Response must be between ' + LOSITE +; 
55 ‘and * + HISITE + ' ° TO ERROR 
56 @ 24,22 SAY ERROR 
57 DO DELAY 
58 LOOP 
29 ELSE 
60 GO TOP 
61 FIND &MSITE 
62 ЕО. Р.О HHEN 
63 SET COLOR TO W/B, W/B 
64 @ 24,0 SAY SPACE(80) 
65 SET COLOR TO W+/R, W+/R 
66 STORE " No records for site number " + MSITE +; 
67 " exist, try again " TO MESSAGE 
68 @- 24,16 SAY MESSAGE 
69 DO DELAY 
70 LOOP 
71 ELSE 
ша EXIT 
73 Не ВЕ) < СТ. 
74 BEEN NOP (MSITE >= LOSITE .AND. MSITE <= HISITE) 
ESICENDDO WHILE .T. 
pol Ж 


77| * ENSURE THAT TEMPORARY DATABASES DO NOT EXIST, IF SO ERASE THEM 
ZO ni | 
Z9TLSET CONSOLE OFF 
80| ERASE TEMPONE.DBF 
81| ЕВАЅЕ ТЕМРОМЕ. МОХ 
82| ERASE TEMPTWO.DBF 
831 ERASE TEMPTHRE.DBF 
84| ERASE TEMPFOUR. DBF 
85| SET CONSOLE ON 
* 


86 

87| * INFORM THE USER THAT THERE WILL BE A SLIGIIT DELAY 

6G| * 

89} SET COLOR TO W+/R, W+/R 

90| STORE SPACE(10) + "Creating a temporary database and index. " +; 
ET "PLEASE BE PATIENT " « SPACE(10) TO MESSAGE 


92| Q 24,0 SAY MESSAGE 

93| COPY TO TEMPONE.DBF WHILE SITENO = "&MSITE" 

94| USE TEMPONE 

95| INDEX ON FEATURENO TO TEMPONE Е 

96| TOTAL ON FEATURENO TO TEMPIWO.DBF FIELDS QTY WHILE FEATURENO «» 'XXXXXX' 
* 


98| * OBTAIN THE DISCOUNT AND ESCALATION RATES FROM THE USER 


Dos * 
100| SET COLOR TO /W, /W 


S 


101 

102 
103 
104 
105 
106 
107 
108 
109 
110 
ІШІН 

112 
ЛГ 
114 
115 
116 
117 
118 
119 
20 
21 

122 
123 
124 
125 
126 
127 
128 
129 
130 
131 

1:32 
135 
134 
155 
136 
D 
138 
239 
140 
141 

142 
143 
144 
145 
146 
147 
148 
149 
150 
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@ 24,0 SAY RATES 

` STORE "0.000" TO LCNHWRATE 
STORE "0.000" TO LCNSWRATE 
STORE "0.000" TO SNETSWRATE 
STORE "0.000" TO UPLIFT 
SET COLOR TO /BR, /BR 
a8 14,61 GET LCNHWRATE PICT "9.999" 
@ 15,61 СЕТ LCNSWRATE PICT "9.999" 
8 16,61 СЕТ SNETSWRATE PICT "9.999" 
@ 17,51 GET UPLIFT PICT "9.999" 
READ 
* 


* ASK TO USER TO VERIFY THAT HE/SHE WANTS TO CONTINUE 
* 

SET COLOR TO W+/B, W+,B 

@ 24,0 SAY SPACE(80) 

@ 22,22 SAY "Do you want to Continue ог ех? " 

SET COLOR TO R+/B, R+/B 

м. 

20 50 SAY X 

STORE "C" TO CHOICE 


@ 22,56 CET CHOICE PICT ГУ 

READ 

* | я 

* ENSURE THAT THE USER'S RESPONSE IS EITHER "N", "Pp" OR "x" 


ж 


DO WHILE .NOT. (CHOICE s "С" ОВ СНОШЕ- "21 
ТЕ .NOT. (CHOICE = "С" .OR. CHOICE = ХХ) ТЕН 
SET COLOR TO W+/R,W+/R 
@ 24,24 SAY " Response must be either Cor x " 
DO DELAY 
STORE "C" TO CHOICE 
ENDIF NOT: (CHOICE = "с" Оо = 5) 
SET COLOR TO R+/B,R+/B 
@ 22,56 GET CHOICE PICT "!" 
READ 
ENDDO WHILE .NOT. (CHOICE = "С" .OR. CHOICE = "Xx") 
ж 
SET COLOR 1O W/B, W/B 
@ 22,20 SAY SPACE(50) 
IF CHOICE = "'C" THEN 


STORE 1 + VAL(LCNHWRATE) TO LCNHWRATE 
STORE 71 + VAL(LCNSWRATE) TO LCNSWRATE 
STORE 1 + VAL(SNETSWRATE) TO SNETSWRATE 
STORE ] + УАШОРЕТЕТ) о ОРОШ 

ELSE 


SET CONSOLE OFF 
CLOSE DATABASES 
ERASE TEMPONE. DBF 
ERASE ТЕМРОМЕ. МОХ 
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51 ERASE TEMPTWO.DBF 
152 ERASE TEMPTHRE.DBF 
153 ERASE TEMPFOUR.DBF 
154 SET CONSOLE ON 
155 SET COLOR ТО W/B, W/B 
156 @ 24,0 SAY SPACE(80) 
[57 RELEASE ERROR, MESSAGE, MSITE, NOPIND, RATES, SITES 
158 RETURN 
159| ЕМОТЕ 
150: * 
161| * INFORM THE USER THAT THERE WILL BE A SLIGHT DELAY 
og; * 


163| SET COLOR TO W+/R, W+/R 

164} STORE '' Creating the MAINTENANCE DELIVERY ORDER may take up to 10 " +; 
165 "minutes. PLEASE WAIT  ‘'' TO MESSAGE 

166| @ 24,0 SAY MESSAGE 

ШОЛ | SELECT 1 

168| USE TEMPIWO 

IESU SELECT 2 

170| USE DESCRIP 

171| SELECT TEMPTWỌ i 

172] JOIN WITH DESCRIP TO ТЕМРТНВЕЕ FOR FIATURENO = DESCRIP->FEATURENO 
IE СЕГЕСТ 3 

174| USE TEMPTHRE 


175| GO TOP 

176| REPLACE ALL MO MAINT WITH BASEMAINT*LCNHWRATE FOR FEATURENO > "320100" .AND.; 
177 FEATURENO < "420400" 

178| GO TOP 


179| REPLACE ALL MO_MAINT WITH BASEMAINT*LCNSWRATE FOR FEATURENO = "550801" 
180| REPLACE ALL MO MAINT WITH BASEMAINT*LCNSWRATE FOR FEATURENO = "550901" 
181| REPLACE ALL MO MAINT WITH BASEMAINT*LCNSWRATE FOR FEATURENO = "551001" 
182| REPLACE ALL MO_MAINT WITH BASEMAINT*LCNSWRATE FOR FEATURENO = "551101" 
183| REPLACE ALL MO MAINT WITH BASEMAINT*LCNSWRATE FOR FEATURENO = "551201" 
184| REPLACE ALL MO MAINT WITH BASEMAINT*LCNSWRATE FOR FEATURENO = "551301" 


185| REPLACE ALL MO MAINT WITH BASEMAINT*SNETSWRATE FOR FEATURENO = "550710" 
186| REPLACE ALL MO MAINT WITH BASEMAINT*SNETSWRATE FOR FEATURENO = "550711" 
187| REPLACE ALL MO MAINT WITH BASEMAINT*SNETSWRATE FOR FEATURENO = "550803" 
188| REPLACE ALL MO MAINT WITH BASEMAINT*SNETSWRATE FOR FEATURENO = "550903" 
189| REPLACE ALL MO MAINT WITH BASEMAINT*SNETSWRATE FOR FEATURENO = "551003" 
190| REPLACE ALL MO MAINT WITH BASEMAINT*SNETSWRATE FOR FEATURENO = "551103" 
191| REPLACE ALL MO MAINT WITH BASEMAINT*SNETSWRATE FOR FEATURENO = "551203" 
192} REPLACE ALL MO MAINT WITH BASEMAINT*SNETSWRATE FOR FEATURENO = "551303" 
193| REPLACE ALL MO MAINT WITH BASEMAINT*SNETSWRATE FOR FEATURENO = "551304" 
194| REPLACE ALL MO MAINT WITH BASEMAINT*SNETSWRATE FOR FEATURENO = "551403" 
195) REPLACE ALL MO MAINT WITH BASEMAINT*SNETSWRATE FOR FEATURENO = "551500" 
196| REPLACE ALL MO MAINT WITH BASEMAINT*SNETSWRATE FOR FEATURENO = "551501" 
197) REPLACE ALL MO MAINT WITH BASEMAINT*SNETSWRATE FOR FEATURENO = "551502" 
198| REPLACE ALL MO MAINT WITH BASEMAINT*SNETSWRATE FOR FEATURENO - "551503" 


199| REPLACE ALL MO_MAINT WITH BASEMAINT*SNETSWRATE FOR FEATURENO = ''551504" 
200| SELECT 4 


DIES 
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201| USE TED 

202| OOPY STRUCTURE TO TEMPFOUR 

203| CLOSE DATABASES 

204| USE TEMPFOUR 

205| APPEND FROM TEMPTHRE 

206| GO TOP 

207| REPLACE ALL MAINT MOS WITH 12 

208| REPLACE ALL MAINT FAC WITH UPLIFT 


209| REPLACE ALL MAINT FAC WITH 1 FOR FEATURENO = "550801" 
210} REPLACE ALL MAINT FAC WITH 4 FOR FEATURENO - "550901" 
211| REPLACE ALL MAINT FAC WITH 1 FOR FEATURENO = "551001" 
212} REPLACE ALL MAINT FAC WITH 1 FOR FEATURENO = "551101" 
213} REPLACE ALL MAINT FAC WITH 1 FOR FEATURENO = "551201" 
214| REPLACE ALL MAINT FAC WITH 1 FOR FEATURENO = "551301" 


215| REPLACE ALL TOT MAINT WITH MAINT FAC*MO_MAINT*MAINT MOS 

216| REPLACE ALL COMP DT CR WITH (((UNIT PRICE + UNIT_INSTA)/48) +; 
217 (MO MAINT * MAINT FAC)) * .005 
218| REPLACE ALL SYS DT CR WITH (QTY*MO MAINT*MAINT FAC) 

219| REPLACE ALL TOT MAINT WITH TOT MAINT*QTY FOR FEATURENO » "010200" .AND.; 
220 FEATURENO « "510101" 

221| REPLACE ALL UNIT PRICE WITH O 

222| REPLACE ALL TOT PRICE WITH 0 

223| REPLACE ALL UNIT INSTA WITH O 

224| REPLACE ALL TOT INSTAL WITH 0 

225| COPY TO NEWDO.PRN DELIMITED 

226| * 

227| * ERASE ALL TEMPORARY DATABASES AND INDICES CREATED DURING THE PROGRAM 
229172 

229| SET CONSOLE OFF 

230| CLOSE DATABASES 

231| ERASE TEMPONE .DBF 

232| ERASE TEMPTWO.DBF 

233| ERASE TEMPTHRE.DBF 

234| ERASE TEMPFOUR.DBF 

235| ERASE TEMPONE.NDX 

236| SET CONSOLE ON 

2 71: 

238| * RETURN TO CALLING PROGRAM 

230 ae 

240| SET COLOR TO W/B, W/B 

241| à 24,0 SAY SPACE(80) 

242| RELEASE ERROR, MESSAGE, MSITE, NOFIND, RATES, SITES 


243] RETURN 
244| жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
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* PROCEDURE MANULADD. PRG 
AUTHORS : LCDR EDWARD J. CASE, SC, USN 
LCDR WINSTON H. BUCKLEY, SC, USN 
LCDR ROBERT F. BRADO, USN 
LCDR ROBERT L. BEARD ILI, SC, USN 
PURPOSE : ADD NEW MANUALS TO THE MANUAL DATABASE FILE. 


INPUT FILES : MANUAL.DBF, MANULSIT.NDX 

CALLED BY : MANULCMD. PRG 

MODULES CALLED : DELAY.PRG 

GLOBAL VARIABLE: HIFNUM, HISITE, LOFNUM, LOSITE 

LOCAL VARIABLES: ACCEPT, CHOICE, ERROR, FEATURES, GETOUT, 
MCLIN, MANDESCRPT, MDESCIPT, MESSAGE, MFEAT, 
MSITE, NOFIND, NOSITE, SITES 

DATE LAST TIME MODIFIED ==========> 23 DECEMBER 1985 <========== 


CASE SELECTION = 1 ADD A NEW MANUAL DESCRIPTION 


X Хх HHH HHH HHH HH HHH HHH HH % X X 


SET ESCAPE OFF 
SET TALK OFF 


USE MANUAL 
GO TOP 

SET COLOR TO W+/B, W+/B, В 
CLEAR 

IF EOF() - .T. THEN 


SET COLOR TO W+/R, W+/R 
@ 13,25 SAY '' The MANUALS Database is EMPTY! " 
DO DELAY 
RETURN 
ENDIF 
SELECT 1 
USE MANUAL INDEX MANULSIT 
* 


?? FLASH + "S.MANUALS.SCR/" 
@ 24,0 SAY SPACE(80) 

@ 22,10 SAY SPACE(60) 

SET COLOR TO GR+/B, GR+/B 
ПБ 28 САУ " Last " 

Si COLOR TO R+/ , R+t/ 


(8 3,26 SAY " MANUAL ADDITION FORMAT " 


SET COLOR TO W+/B, W+/B 
@ 22,23 SAY "Enter C to continue or X to exit: " 
SET COLOR TO R+/B, R+/B 
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22029 SAY 
22,46 SAY "X" 


GENERATE STATUS MESSAGES 


х х жо @ 


STORE ' Enter a Site Number between ' + LOSITE «4 ' and ' +; 
HISITE « ' for the Manual Description Addition ' TO Sites 
STORE ' Enter a Feature Number ( ' + LOFNUM « ' - ' + HIFNUM r роли 
'for the Manual Description Addition ' TO FEATURES 
STORE SPACE(20) + ‘Enter the Manual Description to be Added’ +; 
SPACE(20) TO MANDESCRPT 
* 
DO WHILE Age 
SET СОГОК ТО Б/Б, ЕБ 
@ 6,47 SAY КЕСМО() РІСТ "9999" 


CLEAR SCREEN AND SET INITIAL VALUES FOR VARIABLES TO BE 
ADDED TO THE FILE. THE M PREFIX INDICATES MEMORY VARIABLES 
DISTINGUISHING THEM FROM THEIR CORRESPONDING DATABASE FIELDS. 


+ + * * + 


$ТОВЕ ' "ТО MFEAT 
STORE ' ' TO MMANDESC 


SET COLOR TO /W, /W 
@ 24,0 SAY SITES 


* 


ENSURE THAT THE SITE NUMBER IS A VALID SITE 


DO WHILE T; 

SET COLOR TO /BR, /BR 

STORE ТЕ 

@ 9,45 GET MSITE PICT '99' 

READ 

IF NOT. (MSITE »s LOSITE АМО МГЕ = ИАЛ 
SET COLOR 10 W/B, W/B 
Q 24,0 SAY SPACE(80) 
SET COLOR TO W+/R, W+/R 
STORE ' Response must be between ' + LOSITE + ` ana +; 

HISITE + ' ' TO ERROR 

@ 24,22 SAY ERROR 
DO DELAY 
SET COLOR 1O /W, /W 
М SAY SIT S 
LOOP 

ELSE 
GO TOP 
FIND &MSITE 
TE EODEM 

SET COLOR 1O W/B, W/B 
@ 24,0 SAY SPACE(80) 
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101 SET COLOR TO W+/R, W+/R 
102 STORE " No records exist for site '' + MSITE +; 
103 ", try another site " to NOSITE 
104 @ 24,16 SAY NOSITE 
105 DO DELAY 
106 SET COLOR TO /W, /W 
107 а 24,0 SAY SITES 
108 STORE "99" ТО МЅІТЕ 
109 LOOP 
110 ELSE 
111 EXIT 
Т? ENDIF БОК у = T. 
ШІ 3 ENDIE NOD. (MSITE >= LOSITE .AND. MSIIE «s HISITE) 
114 ENDDO WHILE .T. 
i5! * 
116 GO BOTTOM 
ШІ? SET COLOR TO /W, / W 
118 @ 24,0 SAY FEATURES 
119 SET COLOR TO /BR, /BR 
120 STORE O TO NOFIND 
121 STORE "М" ТО СЕТООТ 
№22 | * 
123| * ENSURE THAT THE FEATURE IS A VALID FEATURE 
124] * 
B5 BONES POT W (MEEAT »s LOFNUM .AND. MFEAT «s HIENUM) 
m6) * 
ШЕШ > в USER Hass MADE THREE ATTEMPTS TO SPECIFY A VALID  .PRN FILE 
ize; * NAME AND HAS NOT BEEN SUCCESSFUL, ASK HIM/HER IF THEY DESIRE. TO 
129; * EXIT THIS PROCESS. 
ШО > 
157 IF NOFIND = 3 THEN 
P32 SET COLOR TO W+/B, W+/B 
es ОНИ ооо want to exit Ehis process? (Yes or No): " 
134 SET COLOR TO R+/B, R+/B 
195 @ 19,51 SAY "y" 
136 @ 19,58 SAY "N" 
ie? STORE "y" TO GETOUT 
138 @ 19,63 СЕТ СЕТОЧТ РТСТ "i!" 
139 ВЕАО 
140| * 
141 Pe White NOT. (GETOUT = "N ТОБ СЕТОПТ - "Ү") 
142 тв NOl. (GEIOUT = № ОВ. СЕТООТ - "У") THEN 
143 SET COLOR TO W+/R, W+/R 
144 @ 24,24 SAY " Response must be either Nor Y" 
145 DO DELAY 
146 STORE "Y'' TO GETOUT 
147 ENDIF 
148 SET COLOR TO R+/B, R+/B 
149 а СЗ СЕСЕ Ристо "а" 
150 READ 
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151 
152 
155 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
127 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
ша 
192 
195 
194 
495 
196 
129% 
198 
199 
200 
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ENDDO 


SET COLOR TO W/B, W/B 
@ 19,10 SAY SPACE(65) 
IF GETOUT s "y" THEN 
EXIT 
ELSE 
STORE 0 TO NOFIND 
SET COLOR TO Да Ди 
@ 24,0 SAY FEATURES 
LOOP 
ENDIF 
ENDIF 
IF GETOUT = "Y" THEN 
EPI 
ENDIF 
SET COLOR ТО /BR, /BR 
STORE LOFNUM TO MFEAT 
8 12,45 GET MFEAT PICT '999999' 
READ 


ENSURE THAT THE FEATURE NUMBER ENTERED BY THE USER IS VALID 


IF .NOT. (MFEAT »- LOFNUM .AND. MFEAT «s HIFNUM) THEN 
SET COLOR TO W/B, W/B 
@ 24,0 SAY SPACE(80) 
SET COLOR TO W+/R, W+/R 
STORE ' Response must be between ' + LOFNUM +; 
' and ' « HIFNUM « ' ' TO ERROR 
@ 24,18 SAY ERROR 
ГО ОЕТАҮ 
SET COLOR TO /W, /W 
@ 24,0 SAY FEATURES 


ELSE 
SELECT 2 
USE EQUIP INDEX EFEAT 
GO TOP 
FIND &MFEAT 
IP BOR) = r. THEN 


NOFIND = NOFIND + 1 
SET COLOR TO W/B, W/B 
@ 24,0 SAY SPACE(80) 
SET COLOR TO W+/R, W+/R 
STORE '" Feature Number " + МЕЕАТ +; 
" does not exist, try again " TO MESSAGE 
IF NOFIND < 3 THEN 
@ 24,16 SAY MESSAGE 
DO DELAY 
SET COLOR TO /W, /W 
@ 24,0 SAY FEATURES 
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201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
ІЗ 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 


230. 


231 
232 
233 
234 
255 


237 
238 
259 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 


* 
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ENDIF 
STORE "999999" ТО МҒЕАТ 
SELECI 1 
ENDIF BOF() = .T. 


ENDIF .NOT. (MFEAT >= LOFNUM .AND. MPEAT <= HIFNUM) 
ENDDO WHILE .NOT. (MFEAT >= LOFNUM .AND. MFEAT <= HIFNUM) 


SET COLOR TO W+/B, W+/B 

@ 24,0 SAY SPACE(80) 

IF GETOUT = "У" THEN 
EXIT 

ENDIF 

SELECT 3 

USE DESCRIP INDEX DESCRIP 

GO TOP 

FIND &MFEAT 

STORE CLIN TO MCLIN 

STORE DESCIPT TO MDESCIPT 

SELECT 1 

SET COLOR TO /BR, /BR 

@ 13,45 SAY MCLIN PICT "9999" 


SET COLOR TO /W, /W 
@ 24,0 SAY MANDESCRPT 
SET COLOR TO /BR, /BR 


READ 
SET COLOR TO W/B, W/B 
@ 24,0 SAY SPACE(80) 


IF .NOT. (MANLDESC = MMANDESC) THEN 
ASK THE USER IF HE/SHE DESIRES TO ACCEPT THE CHANGES 


SET COLOR TO W+/B, W+/B 

@ 20,12 SAY "Do you want to accept the change? (Yes or No):" 
SET COLOR TO R+/B, R+/B 

Q8 20,49 SAY "ү" 

@ 20,56 SAY "N" 

STORE "N" TO ACCEPT 

@ 20,62 GET ACCEPT PICT "!" 

READ 


ENSURE THAT THE USER'S RESPONSE IS EITHER "У" ОВ "М" 
DO WHILE .NOT. (ACCEPT = '"N" .OR. ACCEPT = "Y"') 
ШІП ACCEPT = 2N" ОВ. АССЕРТ = “Y'') THEN 


SET COLOR TO W«/R, W«/R 
Q8 24,24 SAY " Response must be either N or Y " 


525 


25] 

282 
253 
254 
295 
256 
257 
258 
259 
260 
261 

262 
263 
264 
265 
266 
267 
268 
209 
270 
271 

272 
2/39 
274 
275 
276 
277 
278 
2 
280 
281 

282 
295 
284 
285 
286 
287 
288 
499 
290 
291 

292 
423 
294 
295 
296 
291 
298 
299 
300 
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DO DELAY 
STORE "М" TO ACCEPT 
ENDIF 
SET COLOR TO R+/B, R+/B 
@ 20,62 GET ACCEPT PICT "!" 
READ 
ENDDO 
SET COLOR TO W/B, W/B 
@ 20,10 SAY SPACE(55) 
* 
5 IF ENTRIES ÀRE CORRECT, ADD THEM TO DATABASE. 
ж 
IF ACCEPT = "У" 
APPEND BLANK 
REPLACE SITENO WITH MSITE 
REPLACE FEATURENO WITH MFEAT 
REPLACE MANLDESC WITH MMANDESC 
ENDIF 
ж 
ENDIF 
ж. 
SET COLOR то във. КЪВ 


STORE "C" TO CHOICE 
@ 22,58 СЕТ CHOICE PICT "t" 
READ 


+ 


* 


ENSURE THAT THE USER'S RESPONSE IS EITHER "Y" OR "N" 


DO WHILE „МОТ. (CHOICE.s 'C'"..OR. CHOICE 23 
IF .NOT. (CHOICE + "С" OR. CHOICE = “хут 
SET COLOR TO W+/R, W+/R 
@ 24,24 SAY " Response must be either Cor X " 
DO DELAY 
STORE "C" TO CHOICE 
ENDIF 
SET COLOR TO R+/B, R+/B 
@ 22,58 GET CHOICE PICT "!" 
READ 
ENDDO 


* SKIP TO THE NEXT RECORD ТО БЕЗБЕН ЖЕК 


* 


IF CHOICE = "C" THEN 


STORE " © TO MCLIN 

STORE SPACE(30) TO MDESCIPT 
STORE SPACE(26) TO MMANDESC 
SET COLOR TO /BR, /BR 

9. 12 АШ Оду E 

@ 13,45 SAY MCLIN PICT "9999" 
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301 8 17,45 SAY MMANDESC PICT "!:1111111111111111111 111" 
302 SKIP 

303 ENDIF 

304| * 

305 


* 


USER HAS DECIDED TO EXIT THE REVIEW 


307 IF CHOICE = "X" 

308 EXIT 

309 ENDIF 

310| * 

311| ENDDO WHILE .T. 

EN * | 

313| * RETURN TO CALLING PROGRAM. 
ЕД) * 

315] RELEASE ALL LIKE M*, ACCEPT, CHOICE, ERROR, FEATURES, GETOUT,; 
316 NOFIND, NOSITE, SITES 
317| CLOSE DATABASES 


318| RETURN . 
319| жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
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1| * PROCDURE MANULCMD.PRG 
2 * 
3| * AUTHORS : LCDR EDWARD J. CASE, SC, USN 
4| * LCDR WINSTON H. BUCKLEY, SC, USN 
DM LCDR ROBERT F. BRADO, USN 
6| * LCDR ROBERT L. BEARD III, SC, USN 
7 * 
8| * PURPOSE : PROVIDE THE USER THE OPPORTUNITY TO ADD A MANUAL 
9| * RECORD, UPDATE AN EXISTING RECORD, DELETE AN EXISTING 
з . RECORD OR REVIEW CURRENT RECORDS. 
Ties 
12} * INPUT FILES : NONE. 
Так 
14| * OUTPUT FILES : NONE. 
По * 
16| * CALLED BY : MAINMENU.PRG 
17| * 
18| * MODULES CALLED : MANULADD.PRG, MANULUPD.PRG, MANULDEL.PRG, 
19| * MANULREV , PRG 
20| * 
21| * LOCAL VARIABLES: SELEKT 
221 8 
23| * DATE LAST TIME MODIFIED =s=s========> 23 DECEM LERTON E ала 
zt 
* DISPLAY THE PROCESS MENU TO THE USER AND WAIT FOR THE SELECTION. 
20]. * 
27| STORE "1" TO SELEKT 
28| DO WHILE SELEKT < "5" 
29 SET COLOR TO W/B, W/B, B 
30 CLEAR. 
31 ?? FLASH + "W.MANULCMD/" 
32 SET CONSOLE OFF 
33 WAIT TO SELEKT 
34 SET CONSOLE ON 
261% 
36| * PROCESS ROUTINE BASED ON THE USER'S SELECTION. 
DUIS 
38 DO CASE 
So pes 
40| * CALL THE MANUAL ADD PROGRAM. 
41 CASE SELEKT = "1" 
42 DO MANULADD 
43) * 
44| * CALL THE MANUAL UPDATE PROGRAM. 
45 CASE SELEKT = "2" 
46 DO MANULUPD 
47| * 
48] « CALL MANUAL DELETION PROGRAM. 
49 CASE SELEKT = "3" 
50| DO MANULDEL 
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ж 
ж CALL MANUAL REVIEW PROGRAM. 

CASE SELEKT = "4" 

DO MANULREV 

* 
* RETURN TO THE MAIN MENU PROGRAM. 

CASE SELEKT = "5" 


* 


ENDCASE 
* 


ENDDO (WHILE SELEKT « "5") 
* 


* RETURN TO THE CALLING PROGRAM 
* 


RETURN 
жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
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Раде 1 MANULDEL.PRG Program Listing 
PROCEDURE MANULDEL.PRG 
AUTHORS : LCDR EDWARD. J. CASE MSC mU 
LCDR WINSTON H. BUCKLEY, SC, USN 
LCDR ROBERT F. BRADO, USN 
LCDR ROBERT L. BEARDE O EO 
PURPOSE : DELETE MANUAL RECORDS FROM THE MANUAL DATABASE FILE. 
INPUT FILES : MANUAL.DBF, MANULSIT.NDX 
CALLED BY : MANULCMD.PRG 


MODULES CALLED : DELAY.PRG 

GLOBAL VARIABLE: HIFNUM, HISITE, LOFNUM, LOSITE 

LOCAL: VARIABLES: ACCEPT, CHOICE, ERROR? FEATURESS ЕТВЫТГ ВЕС, 
LAST REC, MCLIN, MDESCIPT, MESSAGE, MFEAT, 
MKEY, MMANDESC, MSITE, PACKEM, SITES 

DATE LAST TIME MODIFIED 222222-2---^ 24 DECEMBER 1985 <---------- 


CASE SELECTION = 3 DELETE AN EXISTING MANUAL RECORD 


X X Qo X X HB HH X X X X X % X % X X X X X X X x 


SET DELETED ON 
SET ESCAPE OPE 
SET TALK OFF 


USE MANUAL 
GO TOP 

SET COLOR TO W+/B, W+/B, B 
CLEAR 

IF EOF() = .T. THEN 


SET COLOR TO W+/R, W+/R 
@ 13,25 SAY " The MANUALS Database is EMPTY! " 
DO DELAY 
RETURN 
ENDIF 
SELECT 1 
USE MANUAL INDEX MANULSIT 
GO BOTTOM 
STORE RECNO() TO LAST REC 
ж 


?? FLASH + '"S.MANUALS.SCR/' 

@ 24,0 SAY SPACE(80) 

@ 22,10 SAY SPACE(60) 

SET COLOR TOIR / RT 

@ 3,26 SAY '" MANUAL DELETION FORMAT " 

SET COLOR TO W+/B, W+/B 

8 22,23 SAY Enter © to continue of X © еще и 
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SET COLOR TO R+/B, R+/B 

В 22,29 SAY "C" 

@ 22,46 SAY "x" 

STORE SPACE(9) + "Enter the Site Number for the Manual " +; 
"Description to be Deleted" + SPACE(9) TO SITES 

STORE SPACE(10) + "Enter the Feature Number for the Manual " +; 
"Description Deletion" + SPACE(10) TO FEATURES 

STORE “Records marked for deletion have been deleted and " +; 
"CAN NOT be recovered'" TO PACKEM 

STORE "Are you sure you want to delete this description? " +; 
"(Yes or No):" TO MESSAGE 

ж 

SET COLOR TO /W, /W 

8 24,0 SAY SITES 

* 


* ENSURE THAT THE SITE NUMBER IS A VALID SITE 
* 
STORE ' ' TO MSITE 
ЕЗИНЕ -NOT. (MSITE »s LOSITE AND. MSITE <= HISITE) 
SET COLOR TO /BR, /BR 
STORE ТОБ1ТЕ О МЕ ЕЕ 
8 9,45 GET MSITE PICT '99' 
READ 
PE n K O SITE >= LOSITE АМО, МӘІТЕ <= HISITE) 
SET COLOR TO W/B, W/B 
@ 24,0 SAY SPACE(80) 
SET COLOR TO W+/R, W+/R 
STORE ' Response must be between ' + LOSITE +; 
' and ' « HISITE « ' ' TO ERROR 
@ 24,22 SAY ERROR 
DO DELAY 
SET COLOR TO /W, /W 
@ 24,0 SAY SITES 
LOOP 
ELSE 
GO TOP 
FIND &MSITE 
ТВОЕ т. ТЕ 
SET COLOR TO W/B, W/B 
@ 24,0 SAY SPACE(80) 
SET COLOR TO W+/R, W+/R 
STORE ' No record for site number ' + MSITE +; 
' exists, try again ' TO ERROR 
@ 24,16 SAY ERROR 
DO DELAY 
SET COLOR TO /W, /W 
8 24,0 SAY SITES 
STORE '99' TO MSITE 
ENDIE EOF() = .T. 
COOTER NOT. (MSITE >= LOSITE .AND. MSITE <= HISITE) 
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101| ENDDO WHILE .NOT. (MSITE >= LOSITE .AND. MSITE <= HISITE) 
1021/2 

103| SET COLOR TO W/B, W/B 

104] @ 24,0 SAY SPACE(80) 

105| STORE " " TO MFEAT 

106| SET COLOR TO /W, М 

107} @ 24,0 SAY FEATURES 


тов XX 

109] * ENSURE THAT THE FEATURE IS A VALID FEATURE 

ЮО 

111| DO WHILE .NOT. (MFEAT »- LOFNUM .AND. MFEAT «- HIFNUM) 
112 SET COLOR TO /BR, /BR 

ТЕЗ STORE LOFNUM ТО МЕЕАТ 

114 @ 12,45 GET MFEAT PICT '999999' 

PIS READ 

116 IF .NOT. (MFEAT >= LOFNUM .AND. MFEAT <= HIFNUM) 
117 SET COLOR TO W/B, W/B 

118 @ 24,0 SAY SPACE(80) 

119 SET COLOR TO W+/R, W+/R 

120 STORE ' Response must be between ' + LOFNUM +; 
121 ' and ' + HIFNUM + ' ' TO ERROR 

1122 1 24,18. SAY ERROR. 

123 DO DELAY 

124 SET COLOR TO /W, /W 

125 @ 24,0 SAY FEATURES 

126 LOOP 

127 ELSE 

128 STORE MSITE « MFEAT TO MKEY 

129 GO TOP 

1-30 FIND &MKEY 

131 ЕП 

132 SET COLOR TO W/B, W/B 

133 @ 24,0 SAY SPACE(80) 

134 SET COLOR TO W+/R, W+/R 

135 STORE ' No record exists for feature number ' + MFEAT +; 
136 "ж бту again. TO ERROR 

[5] @ 24,12 SAY ERROR 

138 DO DELAY 

139 SET COLOR TO /W, /W 

140 @ 24,0 SAY FEATURES 

141 STORE '999999' TO MFEAT 

182 ENDIF ЕО у ет, 

143 ENDIF „МОТ. (МҒЕАТ >= LOFNUM .AND. MFEAT <= HIFNUM) 


144] ENDDO WHILE .NOT. (MFEAT >= LOFNUM .AND. MFEAT <= HIFNUM) 
145| * 

146| SET COLOR TO W/B, W/B 

147| @ 24,0 SAY SPACE(80) 

148] * 

149| DO WHILE .T. 

150| SET COLOR TO R+/B, R+/B 
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* 


DEDE X 


БЕС Т СРИБНЕТОШЕРТСІ "9999" 
STORE FEATURENO ТО MFEAT 
SELECT 2 


-USE DESCRIP INDEX DESCRIP.NDX 


FIND &MFEAT 
STORE CLIN TO MCLIN 

STORE DESCIPT TO MDESCIPT 

SELECT 1 

SET COLOR TO /BR, /BR 

@ 9,45 SAY SITENO PICT '99' 

@ 12,45 SAY FEATURENO PICT '999999' 
@ 13,45 SAY MCLIN PICT "9999" 


SET COLOR TO W/B, W/B 
@ 24,0 SAY SPACE(80) 


ASK THE USER IF HE/SHE IS SURE ABOUT THE DELETION 


SET COLOR TO W+/B, W+/B 

@ 20,06 SAY MESSAGE 

SET COLOR TO R+/B, R+/B 

@ 20.58 SAY "y" 

@ 20,65 SAY "N" 

STORE "М" ТО ACCEPT 

а 20 70 GET ACCEPT PICT "!" 
READ 


ENSURE THAT THE USER'S RESPONSE IS EITHER "Y" OR "N" 


DO WHILE .NOT. (ACCEPT - "N" .OR. ACCEPT - "У") 
IF .NOT. (ACCEPT - "N" .OR. ACCEPT - "Y'') THEN 
SET COLOR TO W+/R, W+/R 
@ 24,24 SAY '' Response must be either N or Y " 
DO DELAY 
STORE "N" TO ACCEPT 
ENDIF 
SET COLOR TO R+/B, R+/B 
a200 CET ACCEPT РІСІ "!" 
READ 
ENDDO 
SET COLOR TO W/B, W/B 
@ 20,05 SAY SPACE(70) 


IF ENTRIES ARE CORRECT, DELETE THEM FROM THE DATABASE, 
IF NOT RECOVER THEM 


i ACCEPT = "y" 


DELETE 
ENDIF 
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201 + 
202 SET COLOR TO R+/B, R+/B 
203 STORE "C" TO CHOICE 
204 @ 22,58 GET CHOICE PIcr "!" 
205 READ 
206| * 
207 + ENSURE THAT THE USER'S RESPONSE IS EITHER "C" OR "x" 
2080 * 
209 DO WHILE ,МОТ, (CHOICE = "СТОКС Че 
210 IF .NOT. (CHOICE = "С" .OR. СНОІСЕ - "X") THEN 
211 SET COLOR TO W+/R, W+/R 
212 @ 24,24 SAY " Response must be either C or X " 
213 DO DELAY 
214 STORE "C" TO CHOICE 
215 ENDIF 
216 SET COLOR TO R+/B, R+/B 
217] @ со пето CHOICE PIT I5 
218 ЕЕАО 
219 ENDDO 
220| * 
221| * SKIP TO THE NEXT RECORD TO BE REVIEWED 
22 ME 
223 IF CHOICE = "С" THEN 
224 IF RECNO() = LAST REC THEN 
225 GO TOP 
226 ELSE 
223 SKIP 
228 ENDIF 
229 ENDIF 
230 et 
231| Ж USER HAS DECIDED TO EXIT THE REVIEW 
232) 
239 Ip GI DEOS 
234 SET COLOR TO W+/R, W+/R 
235 @ 24,0 
236 @ 24,6 SAY PACKEM 
237 SET COLOR TO W/B, W/B 
238 PACK 
239 EXIT 
240 ENDIF 
241| * 
242| ENDDO WHILE .T. 
243, * 
244| * RETURN TO CALLING PROGRAM, 
245 + 
246| RELEASE ALL LIKE M*, ACCEPT, CHOICE, ERROR, FEATURES 7 BIRSTE CEN 
247 | LAST REC, PACKEM, SITES 
248| CLOSE DATABASES 
249| RETURN 
250 жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжкжжжжжжжжжжкжжжжжжжжжжжжжкжжжжжжжжжжж 
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1| * PROCEDURE MANULREV . PRG 
2 * 
3| * AUTHORS : LCDR EDWARD J. CASE, SC, USN 
4| * EGORe WINSTON H- BUCKLEY, SC, USN 
a LCDR ROBERT F. BRADO, USN 
6| * LCDR ROBERT L. BEARD III, SC, USN 
F * 
Е * PURPOSE : TO ENABLE THE USER TO REVIEW ALL THE RECORDS IN 
9| * THE MANUAL DATABASE 
ШІ > 
ШІ.” INPUT FILES : MANUAL.DBF, MANULSIT.NDX 
1 ы 
fee CALLED BY : MANULCMD. PRG 
14| * 
15] * MODULES CALLED : DELAY.PRG 
iG) * 
17| * GLOBAL VARIABLE: HIFNUM, HISITE, LOFNUM, LOSITE 
ы 
19| * LOCAL VARIABLES: ACCEPT, CHOICE, CURRENTNO, EOF, ERROR, FIRST REC, 
20| * LAST REC, MCLIN, MDESCIPT, MFEAT, MSITE, TOF 
ШІ + 
EE IP aS ТІМЕ МИЙТЕТЕТ) ----------> 26 РЕСЕМВЕК 1985 <---------- 
EE * 
* 


CASE SELECTION - 4 REVIEW EXISTING MANUAL RECORDS 


N 
Un 
ж 


26| SET ESCAPE OFF 

27| SET TALK OFF 

28| USE MANUAL 

29| GO TOP 

30| SET COLOR TO W+/B, W+/B, B 

31; CLEAR | 

БИІ ТЕ БОЕ() = .T. THEN 

33 SET COLOR TO W+/R, W+/R 

34 @ 13,25 SAY '' The MANUALS Database is EMPTY! " 
25 DO DELAY 

36 RETURN 

37| ENDIF 

38| ?? FLASH + 'S.MANUALS.SCR/" 

39| @ 24,0 SAY SPACE(80) 

40| SET COLOR TO R+/ , R+/ 

41| @ 3,26 SAY " MANUAL REVIEW FORMAT " 


a2) OSLECT 1 
43| STORE " Enter 00 to start at TOF, 99 to start at BOF or a site number " +; 
44 "between " + 105ІТЕ + " апа " + НІЅІТЕ + " " TO MESSAGE 


45| SET COLOR TO /W, /W 

46| à 24,0 SAY MESSAGE 

47| STORE '88' TO MSITE 

48| DO WHILE .NOT. ((MSITE »- '00' .AND. MSITE «- HISITE) .OR. MSITE - '99') 
49 Ber COLOR TO /BR , /BR 

50 STORE '00' TO MSITE 
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51 @ 09,45 GET MSITE PICT '99' 
52 READ 
53 IF .NOT. ((MSITE >= '00' .AND. MSITE <= HISITE) .OR. MSITE = '99') THEN 
54 SET COLOR TO W/B, W/B | 
55 @ 24,0 SAY SPACE(80) 
56 SET COLOR TO W+/R, W+/R 
57 STORE ' Response must be between ' + LOSITE + ' and ' +; 
58 HISITE + ', Zero (00) or 99 ' TO ERROR 
59 @ 24,13 SAY ERROR 
60 DO DELAY 
61 SET COLOR TO /W, /W 
62 @ 24,0 SAY MESSAGE 
63 LOOP 
64 ELSE > 
65 IF (MSITE = '00' .OR. MSITE = '99') THEN 
66 USE MANUAL 
67 IF MSITE = '00' THEN 
68 GO BOTTOM 
69 STORE RECNO() TO LAST REC 
70 GO TOP 
71 STORE RECNO() TO FIRST REC 
72 ELSE 
73 GO TOP 
74 STORE RECNO() TO FIRST REC 
75 GO BOTTOM 
76 STORE RECNO() TO LAST REC 
27 ENDIF MSITE = "00! 
78 EXIT 
79 ELSE 
80 USE MANUAL INDEX MANULSIT 
81 ` СО ТОР 
82 FIND &MSITE 
83 IF FEOF) > r THEN 
84 SET COLOR TO W/B, W/B 
93 @ 24,0 SAY SPACE(80) 
86 SET COLOR TO W+/R, W+/R 
87 STORE '" No records exist for site number " + MSITE +; 
88 ", try again ' TO ERROR 
89 @ 24,16 SAY ERROR 
90 DO DELAY 
91 SET COLOR TO /W, /W 
92 @ 24,0 SAY MESSAGE 
93 STORE '88' TO MSITE 
94 LOOP 
95 ELSE 
96 EA LT 
97 ENDIF 
98 ENDIF 
99 ENDIF 


100, ENDDO WHILE 
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TOM * 
102! STORE SPACE(10) « 'Enter "00 " to start at TOF of a six digit ' +; 
103 "feature number’ + SPACE(10) TO MESSAGE 
ШІ ІШЕ (MSITE >= LOSITE .AND. MSITE <= HISITE) THEN 
105 SET COLOR TO /W, /W 
106 @ 24,0 SAY MESSAGE 
107 DO WHILE .T. 
108 SET COLOR TO /BR, /BR 
109 STORE '00 ' TO MFEAT 
110 @ 12,45 GET MFEAT PICT '999999' 
111 READ 
112 IF .NOT. ((MFEAT »- LOFNUM .AND. MFEAT «2s HIFNUM) .OR.; 
113 MFEAT = '00 ") THEN 
114 SET COLOR TO W/B, W/B 
115 | @ 24,0 ЅАҮ ЅРАСЕ(80) 
116 SET COLOR TO W+/R, W+/R | 
ІШ STORE ' Response must be between ' + LOFNUM + ' and ' *; 
118 HIFNUM + ' or Zero (00) ' TO ERROR 
119 8 24,9 SAY ERROR 
120 DO DELAY 
121 SET COLOR TO /W, /W 
122 @ 24,0 SAY MESSAGE 
128 LOOP 
124 ELSE 
125 IF (MFEAT >= LOFNUM .AND. MFEAT <= HIFNUM) THEN 
126 IF MFEAT - '99 ' THEN 
27 SET COLOR TO W/B, W/B 
128 Q 24,0 SAY SPACE(80) 
129 SET COLOR TO W«/R, W«/R 
130 ' STORE ' Response must be between ' + LOFNUM +; 
131 ' and ' + HIFNUM + ' or Zero (00) ' TO ERROR 
132 @ 24,9 SAY ERROR 
1:39 DO DELAY 
134 SET COLOR TO /W, /W 
135 @ 24,0 SAY MESSAGE 
136 LOOP 
137 ENDIF MFEAT = '99 
138 STORE MSITE + MFEAT TO MKEY 
19 USE MANUAL INDEX MANULSIT 
140 GO TOP 
141 FIND &MKEY 
142 ШЕСЕ ОЕМ 
143 SET COLOR TO W/B, W/B 
144 @ 24,0 SAY SPACE(80) 
145 SET COLOR TO W+/R, W+/R 
146 STORE " No record with feature number " « MFEAT +; 
147 " exists, try again " TO ERROR 
148 @ 24,12 SAY ERROR 
149 DO DELAY 
150 SET COLOR TO /W, /W 
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Q 24,0 SAY MESSAGE 
LOOP 
ELSE 
EXIT 
ENDIF EDD В. 
ELSE 
GO TOP 
EXIT 
ENDIF (MFEAT >= LOFNUM .AND. MFEAT <= HIFNUM) 
ENDIE 
ENDDO WHILE .T. 
ЕМОТЕ .NOT.-(MSITE ^ LOSITE .OR. MSPPESS-OHISTIBES 
* 
SET COLOR TO W/B, W/B 
@ 24,0 SAY SPACE(80) 
STORE " At beginning of records for site number " +; 
MSTTE c£ er ror 
STORE " At end of records for site number " + MSITE + " " TO BOF 
DO WHILE. T. 


SET COLOR TO R+/B, R+/B 
@ 6,47 SAY ВЕСМО() РІСТ "9999" 


CLEAR SCREEN AND SET INITIAL VALUES FOR VARIABLES TO BE 
ADDED TO THE FILE. THE M PREFIX INDICATES MEMORY VARIABLES 
DISTINGUISHING THEM FROM THEIR CORRESPONDING DATABASE FIELDS. 


To Ob abet bo 


STORE FEATURENO TO MFEAT 
SELECT 2 

USE DESCRIP INDEX DESCRIP 
FIND &MFEAT 

STORE CLIN TO MCLIN 

STORE DESCIPT TO MDESCIPT 
SELECT 1 

SET COLOR TO /BR, /BR 

09,45 SAY SITENO PICT ''99" 
12,45 SAY FEATURENO PICT "999999" 
13,45 SAY MCLIN PICT "9999" 


(со (со (0 (со (со 


SET COLOR TO R+/B, R+/B 
STORE "N' TO CHOICE 

0722767 CET CHOICE PICT I 
READ 


* 


ENSURE THAT THE USER'S RESPONSE IS EITHER "М", "Р" ОВ "Х" 


DO WHILE .NOT. (CHOICE = "N" „ОВ. СНОТСЕ + "Р" .OR. CHOICE = 


IF .NOT. (CHOICE = "N" ,OR. CHOICE = "Р" (ОВ. CHOICE = 


S 
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250 


X 


ж 


SET COLOR TO W+/R,W+/R 
@ 24,22 SAY " Response must be either N, P or X " 
DO DELAY 
STORE "N" TO CHOICE 
ENDIF ; 
SET COLOR TO R+/B,R+/B 
Q 22,67 GFET' CHOICE PICD 1" 
READ 
ENDDO 


SKIP TO THE NEXT RECORD TO BE REVIEWED 


IF CHOICE = "N! THEN 
IF (MSITE >= LOSITE .AND. MSITE <= HISITE) THEN 
SKIP 
IF EOF() - .T. THEN 
эше 
SET COLOR TO W+/R, W+/R 
@ 24,21 SAY EOF 


DO DELAY 
ELSE 
TENANT. (SITENO - MSITE) THEN 
SKIP - 1 


SET COLOR TO W+/R, W+R 
@ 24,21 SAY EOF 


DO DELAY 
ENDIF 
ENDIF POF() SmI. 
ELSE 
IF RECNO() = LAST REC THEN 
GO TOP 
ELSE 
SEDE 
ENDIF 


ENDIF (MSITE »- LOSITE .AND. MSITE «- HISITE) 
ENDIF CHOICE = "N" 


РТР ТО THE PREVIOUS RECORD 


IF CHOICE = "P" THEN 
STORE RECNO() TO CURRENTNO 
IF (MSITE >= LOSITE .AND. MSITE <= HISITE) THEN 
SKIP - 1 
о. В THEN 
GOTO CURRENTNO 
SET COLOR TO W+/R, W+/R 
@ 24,16 SAY TOF 
DO DELAY 
ELSE 
IF .NOT. (SITENO = MSITE) THEN 
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291 


SKIP 
SET COLOR TO W+/R, W+/R 
@ 24,16 SAY TOF 
DO DELAY 
ENDIF 
ENDEP БОК) = „Т. 
ELSE 
IF RECNO() - FIRST REC THEN 
GO BOTTOM 
ELSE 
SKIP - 1 
ENDIF 
ENDIF (MSITE >= LOSTTE AND. MSITE <= ПЕ! 
ENDIF CHOICE = "p" 


® USER HAS DECIDED TO EXIT THE TREVTEW 


TE CHOICE. =x" 
EXIT 
ENDIF 


ENDDO WHILE .T. 
* 


* RETURN TO CALLING PROGRAM. 

ж 

RELEASE ALL LIKE M*, ACCEPT, CHOICE, CURRENTNO, EOF, FIRST REC, LAST REC, TOF 
CLOSE DATABASES 

RETURN 


жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
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* PROCEDURE MANULUPD.PRG 
* 
* AUTHORS : LCDR EDWARD J. CASE, SC, USN 
* LCDR WINSTON H. BUCKLEY, SC, USN 
* LCDR ROBERT F. BRADO, USN 
* LCDR ROBERT L. BEARD III, SC, USN 
* 
* PURPOSE : TO ENABLE THE USER TO UPDATE SELECTED RECORDS IN 
* THE MANUAL DATABASE 
* 
* INPUT FILES . : MANUAL.DBF, MANULSIT.NDX 
* 
* CALLED BY : MANULCMD.PRG 
* 
* MODULES CALLED : DELAY.PRG 
* 
* GLOBAL VARIABLE: HIFNUM, HISITE, LOFNUM LOSITE 
* 
* LOCAL VARIABLES: ACCEPT, ANS, CHOICE, EOF, ERROR, MCLIN, MDATE, 
* MDESCIPT, MFEAT, MSITE, TOF 
* 
* DATE LAST TIME MODIFIED ==========> 26 DECEMBER 1985 <========== 
* 2 
* CASE SELECTION = 2 UPDATE AN EXISTING MANUAL DESCRIPTION 
* 


SET ESCAPE OFF 
SET TALK OFF 
USE MANUAL 
GO TOP 
SET COLOR TO W+/B, W+/B, B 
CLEAR 
IEEOEC) = .T. THEN 
SET COLOR TO W+/R, W+/R 
@ 13,25 SAY " The MANUALS Database is EMPTY! " 
DO DELAY 
RETURN 
ENDIF 
?? FLASH « "S.MANUALS.SCR/" 
@ 24,0 SAY SPACE(80) 
SET COLOR TO R+/ , R+/ 
@ 3,26 SAY " MANUAL UPDATE FORMAT " 
SELECT 1 
STORE " Enter 00 to start at TOF, 99 to start at EOF or a site number " +; 
“between " + LOSITE + " and “ + HISITE + " " TO MESSAGE 
SET COLOR TO /W, /W 
@ 24,0 SAY MESSAGE 


ТОРЕ '88' TO MSITE 


DO WHILE .NOT. ((MSITE >= '00' .AND. MSITE <= HISITE) .OR. MSITE - '99') 
SET COLOR TO /BR , /BR 
STORE '00' TO MSITE 
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51 @ 09,45 GET MSITE PICT '99' 
52 READ 
53 ТЕ „МОТ. ((MSITE >= '00' .AND. MSITE «- HISITE) .OR. MSITE - '99') 
54 SET COLOR TO W/B, W/B 
55 @ 24,0 SAY SPACE(80) 
56 SET COLOR TO W+/R, W+/R 
57 STORE ' Response must be between ' + LOSITE + ' and ' +; 
58 НІЅІТЕ + ', Zero (00) or 99 ' TO ERROR 
59 @ 24,13 SAY ERROR 
60 ГО DELAY 
61 . SET COLOR TO /W, /W 
62 @ 24,0 SAY MESSAGE 
63 LOOP 
64 ELSE 
65 IF (MSITE = '00' .OR. MSITE - '99') THEN 
66 USE MANUAL 
67 IF MSITE = '00' THEN 
68 GO BOTTOM 
69 STORE RECNO() TO LAST REC 
70 GO TOP 
71 | STORE RECNO() TO FIRST REC 
па ELSE 
73 GO TOP | 
74 STORE RECNO() TO FIRST REC | 
75 GO BOTTOM | 
76 STORE RECNO() TO LAST REC 
77 ENDIF MSITE = '00' 
78 EXIT 
79 ELSE 
80 USE MANUAL INDEX MANULSIT 
81 GO TOP 
82 FIND &MSITE 
83 ТЕ BOE() z -Т. ТИМ 
84 SET COLOR TO W/B, W/B 
85 @ 24,0 SAY SPACE(80) 
86 SEI COLOR TO W+/R, W+/R 
87 STORE " No records exist for site number ü Mo rr r RS 
88 ", try again ' TO ERROR 
89 @ 24,16 SAY ERROR 
90 DO DELAY 
91 SET COLOR TO /W, W 
92 @ 24,0 SAY MESSAGE 
93 STORE '88' TO MSITE 
94 LOOP 
95 ENDIF BOF() s .T. 
96 ENDIF (MSITE = '00' .OR. MSITE - 99") | 
97| ENDIF .NOT. ((MSITE >= '00' .AND. MSITE <= HISITE) .OR. MSITE - '99') | 


98 | ENDDO WHILE .NOT. ((MSITE >= '00' .AND. MSITE <= HISITE) .OR. MSITE = '99') 
9 9 * | 
100} STORE " At beginning of records for site number " +; 
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аа 


101 

102 
103 
104 
105 
106 
107 
108 
109 
110 
111 

2 
113 
114 
113 
116 
117 
118 
119 
120 
121 

122 
123 
124 
165 
126 
ІШУ 
128 
Zo 
130 
181 

182 
133 
134 
135 
136 
137 
138 
139 
140 
141 

142 
143 
144 
145 
146 
147 
148 
149 
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MSITE + " ' О TOF 
STORE " At end of records for site number " « MSITE « " " TO EOF 
STORE ' Enter "00 '" to start at TOF or a six digit feature' +; 
' number (' + LOPNUM + ' - ' + HIFNUM + ') ' TO MESSAGE 
IF (MSITE >= LOSITE .AND. MSITE <= HISITE) THEN 
SET COLOR TO /W, /W 


@ 24,0 SAY MESSAGE 
DO WHILE .T. 
SET COLOR TO /BR, /BR 
STORE '00 ' TO MFEAT 
8 12,45 СЕТ МҒЕАТ РІСІ 999999! 
READ 
IF .NOT. ((MFEAT »- LOFNUM .AND. MFEAT «- HIFNUM) .OR.; 
МЕЕАТ = '00 ') THEN 


SET COLOR TO W/B, W/B 

@ 24,0 SAY SPACE(80) 

SET COLOR TO W+/R, W+/R 

STORE ' Response must be between ' + LOFNUM + ' апа ' +; 
HIFNUM + ' or Zero (00) ' TO ERROR 

@ 24,9 SAY ERROR 

DO DELAY 


SET COLOR TO /W, /W 
@ 24,0 SAY MESSAGE 
LOOP 
ELSE 
IF (MFEAT >= LOFNUM .AND. MFEAT <= HIFNUM) THEN 
IF MFEAT = '99 ' THEN 


SET COLOR TO W/B, W/B 
@ 24,0 SAY SPACE(80) 
SET COLOR TO W+/R, W+/R 
STORE ' Response must be between ' + LOFNUM +; 
‘and ' + HIFNUM + ' or Zero (00) ' TO ERROR 
@ 24,9 SAY ERROR 
DO DELAY 
SET COLOR TO /W, /М 
@ 24,0 SAY MESSAGE 
LOOP 
ENDIF MFEAT = '99 | 
STORE MSITE + MFEAT TO MKEY 
USE MANUAL INDEX MANULSIT 
GO TOP 
FIND &MKEY 
BE CEDE) SS D THEN 
SET COLOR TO W/B, W/B 
@ 24,0 SAY SPACE(80) 
SET COLOR TO W+/R, W+/R 
STORE " No record with feature number " + MFEAT +; 
" exists, try again " TO ERROR 
@ 24,12 SAY ERROR 
DO DELAY 
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152 
153 
154 
155 
156 
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158 
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160 
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162! 


163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
ВИЗ 
174 
№5 
176 
ШІЛ 
T8 
129 
180 
181 
[54 
183 
184 
185 
186 
167 
188 
189 
190 
191 
192 
93 
194 
195 
196 
197 
199 
199 


SET COLOR TO /W, /W 
@ 24,0 SAY MESSAGE 


LOOP 
ELSE 
EXIT 
ENDIF POR Е 
ELSE 
GO ТОР 
EXET 
ENDIF (MFEAT >= LOFNUM .AND. MFEAT <= HIFNUM) 
ENDIF 


ENDDO WHILE .T. 


ENDIF .NOT. (MSITE >= LOSITE .OR. МБШЕ <= НЕ) 


* 
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STORE SPACE(16) « 'Press "Page Down" key to terminate record update' +; 


SPACE(16) TO MESSAGE 


STORE 1 TO INTRO 
DO WHILE T. 


* 
* 
* 


X X X < X X 


200 | 


INFORM THE USER OF HOW TO TERMINATE THE UPDATE OF A RECORD 


IF INTRO = 1 THEN 
STORE 0 TO INTRO 
?? FLASH « "W.MANULUPD/" 
SET CONSOLE OFF 
WAIT TO ANS 
SET CONSOLE ON 
ENDIF 


SET COLOR TO R+/B, R+/B 

@ 6,47 SAY RECNO() PICT "9999" 
SET COLOR TO /W, /W 

Q 24,0 SAY MESSAGE 


STORING THE OLD RECORD TO A WORK RECORD AREA. THE M PREFIX 
INDICATES MEMORY VARIABLES DISTINGUISHING THEM FROM THEIR 


CORRESPONDING DATABASE FIELDS. 


STORE FEATURENO TO MFEAT 
STORE MANLDESC TO MMANDESC 


SELECT 2 

USE DESCRIP INDEX DESCRIP 
FIND &MFEAT 

STORE CLIN TO MCLIN 

STORE DESCIPT TO MDESCIPT 
SELECT 1 

SET COLOR TO /BR, /BR 

@ 09,45 SAY SITENO PICT "99" 


201 
202 
203 
204 
205 


207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 


222 
223 
224 
225 
226 
227 
228 
229 
230 
25] 
252 
253 
234 
235 
236 
297 
238 
259 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 


250| 
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@ 12,45 SAY FEATURENO PICT "999999" 
@ 13,45 SAY MCLIN PICT "9999" 


READ 
SET COLOR TO W/B, W/B 
@ 24,0 SAY SPACE(80) 


IF .NOT. (MANLDESC = MMANDESC) THEN 
ASK THE USER IF HE/SHE DESIRES TO ACCEPT THE CHANGES. 


SET COLOR ТО W+/B, W+/B 

820,12 SAY "Do you want to accept the changes? (Yes or No):" 
SET COLOR TO R+/B, R+/B 

020,49 SAY "y" 

0820,56 SAY "N' 

STORE "N" TO ACCEPT 

820,62 GET ACCEPT PICT "i!" 

READ 


ENSURE THAT THE USER'S PROMPT IS EITHER "y" OR "N" 


DO WHILE .МОТ. (ACCEPT - "N" .OR. ACCEPT s 'Yy'" 
ШТ ACCEPT = N" OR. ACCEPT = "Ү"): 
SET COLOR TO W+/R, W+/R 
@ 24,24 SAY " Response must be either N or Y " 
DO DELAY 
STORE "N" TO ACCEPT 
ENDIF 
SET COLOR TO R+/B, R+/B 
O G2 GET ACCEPT PICT ":" 
READ 
ENDDO 
SET COLOR TO W/B, W/B 
@ 20,10 SAY SPACE(60) 


) 
THEN 


IF ACCEPT - "Y' THEN 

REPLACE MANLDESC WITH MMANDESC 
ELSE 

SET COLOR TO /BR, /BR 


ENDIF 
ENDIF 


SET COLOR TO R+/B, R+/B 
STORE "N" TO CHOICE 

HEP OUGZ GET CHOICE PICT "i" 
READ 
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2515 * 
gro Et ENSURE THAT THE USER'S RESPONSE IS EITHER "N", "PU" OR "X" 
2530 
254 DO WHILE „МОТ. (CHOICE = "N" .OR. CHOICE = "pi IOR. CHOICE STE S 
255 IF .NOT. (CHOICE - "N" .OR. CHOICE = "Р" „ОВ. CHOICE - "X") THEN 
256 SET COLOR TO W+/R, W+/R 
257 Q 24,22 SAY " Response must be either N, Por X " 
258 DO DELAY | 
259 STORE "М" TO CHOICE 
260 ENDIF | 
261 SET COLOR TO R+/B, R+/B | 
262 @ 22,67 СЕТ CHOTE PICTI 
263 READ 
264 ENDDO 
265| * 
266| * SKIP TO THE NEXT RECORD TO BE REVIEWED 
2671 * 
268 ТЕ СНОТСЕ =`"М" ТНЕМ 
269 IF (MSITE »- LOSITE .AND. MSITE <= HISITE) THEN 
270 SKIP 
271 IF EOF() = .T. THEN 
272 SKIP = 1 
273 SET COLOR TO W+/R, W+/R 
274 @.24,21 SAY EOF 
25 DO DELAY 
276 ELSE 
277 IF .NOT. (SITENO - MSITE) THEN 
278 SKIP - 1 
279 SET COLOR TO W+/R, W«R 
280 @ 24,21 SAY EOF 
281 DO DELAY 
282 ENDIF 
283 ENDIF ЕОЕ() - .Т. 
284 ELSE 
285 IF RECNO() = LAST REC THEN 
286 GO TOP 
287 ELSE 
288 SKIP 
289 ENDIF 
290 ENDIF (MSITE >= LOSITE .AND. MSITE <= HISITE) 
291 ENDIF CHOICE = "№" 
292| * 
293| * SKIP TO THE PREVIOUS RECORD 
294| * 
295 IF CHOICE = "P" THEN 
296 STORE RECNO() TO CURRENTNO 
297 | IF (MSITE »- LOSITE .AND. MSITE ‹= НІЅІТЕ) ТНЕМ 
298 SKIP - 1 
299 IF BOF() = .T. THEN 
300 GOTO CURRENTNO 
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301 SET COLOR TO W+/R, W+/R 
302 a 24,16 SAY TOF 
303 DO DELAY 
304 ELSE 
305 IF .NOT. (SITENO = MSITE) THEN 
306 SKIP 
307 SET COLOR TO W+/R, W+/R 
308 @ 24,16 SAY TOF 
309 DO DELAY 
310 ENDIF 
E ENDIF BOF() = .T. 
312 ELSE 
313 IF RECNO() = FIRST REC THEN 
314 GO BOTTOM 
315 ELSE 
316 SKIP - 1 
$5] 7j ENDIF 
318 ENDIF (MSITE >= LOSITE .AND. MSITE «- HISITE) 
319 ENDIF CHOICE = "Pp" 
B Ж 
321| * USER !IAS DECIDED TO EXIT THE REVIEW 
222| * 
323 IF CHOICE = "Х" 
324 EXIT 
325 ENDIF 
3261 ж 
327| ENDDO WHILE .T. 
5751 ж 
329| * RETURN TO CALLING PROGRAM. 
35901 *. 
331| RELEASE ALL LIKE M*, ACCEPT, ANS, CHOICE, ERROR 
332| CLOSE DATABASES 
333| RETURN 
334 жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
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Doce MKLABELS.PRG Program Listing 
1| * PROCEDURE MKLABELS.PRG 
D 
3| * AUTHORS : LCDR EDWARD J. CASE, ЗС ИСІ 
а" LCDR WINSTON H. BUCKLEY, S@ sus 
S TUE LCDR ROBERT F. BRADO, USN 
o LCDR ROBERT L. BEARD III, SC, USN 
7 * 
8| * PURPOSE : PROVIDE THE USER WITH THE CAPABILITY OF RAPIDLY 
олы GENERATING MAILING LABELS FOR ALL OF THE SPLICE 
TOS T SITES. 
JN PES 
ПО ~ INPUT FILES : NONE. 
21277 
14) * OUIPOUT FILES : NONE. 
S sm 
16| * CALLED BY : MAINMENU. PRG 
171051 
18| * MODULES CALLED : DELAY .PRG 
И > 
20| * LOCAL VARIABLES: COPIES, IMAGE, INTRO, LABELS, LAST LINE, 
211% LINECNT, MESSAGE, SKIPONE 
э | 
23 * DATE LAST TIME MODIFIED ==========> 27 DECEMBER 1995 ==ЕЕЕЕЕЕЕЕЕ 
24 F 
25| * GENERATE MAILING LABELS FOR ALL OF THE SPLICE SITES. 
26| * 
27! SET ESCAPE OFF 
28; SET EXACT ON 
291 SET TALK OFF 
30| SET COLOR TO W/B, W/B, B 
31 CLEAR 
32| ?? FLASH + "S.MKLABELS.SCR/" 
33| @ 24,0 SAY SPACE(80) 
34| SET COLOR TO R+/B, R+/B 
35| ч 
36| * OBTAIN THE NUMBER OF SETS OF LABELS TO PRINT FROM THE USER 
37M * 
381 STORE SPACE(5) + "Input. the number of sets of labels desired ms 
39 " (Range 1 - 10) or 00 TO EXIT" « SPACE(5) TO MESSAGE 
40] * 
41| STORE "99" TO COPIES 
42| DO WHILE .NOT. (COPIES »- "00" .AND. COPIES <= "10") 
43 SET COLOR TO /W, /W 
44 Q 24,0 SAY MESSAGE 
45 STORE "00" TO COPIES 
46 SET COLOR TO R+/B, R+/B 
47 @ 6,55 GET COPIES PICT "99" 
48 READ 
49 IF „МОТ. (COPIES >=- |00! C AND: COPIES k -SO 
S0 SET COLOR TO W/B, W/B 
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@ 24,0 SAY SPACE(80) 
SET COLOR TO W+/R, W+/R 
@ 24,22 SAY " Response must be between 00 and 10 
DO DELAY 
SET COLOR TO /W, /W 
@ 24,0 SAY MESSAGE 
LOOP 
ENDIF 
ENDDO 
SET COLOR TO W/B, W/B 
@ 24,0 SAY SPACE(80) 
ж 
IF COPIES = "00" THEN 
SET EXACT OFF 
RELEASE COPIES, MESSAGE 
RETURN 
ENDIF . 
* 


* START PRINTING LABELS 
* 

USE CONFIG INDEX CONFIG 
GO TOP 


STORE SPACE(15) « " Performing printer alignment test for la 


SPACE(15) TO MESSAGE 
STORE "Running label forms alignment print test" TO IMAGE 
СЛОБЕ "Y" TO CHOICE 
STORE 1 TO INTRO 
ӘЛӘКЕ 1 ТО LINECNT 
SIORE LINECNT « 8 ТО SKIPONE 
* 


* ASK THE USER IF A PRINTER ALIGNMENT TEST IS DESIRED 
* ` 


SET COLOR TO W+/B, W+/B 


@ 22,9 SAY "Do you desire to run a printer alignment test? (Yes or No): 


SET COLOR TO R+/B, R+/B 

ОШО 57 SAY "y" 

а 22,64 5АҮ "М" 

DO WHILE CHOICE = "y" 
SET COLOR TO R+/B, R+/B 
OR OCET CHOICE PICT I" 
READ 


* ENSURE THAT THE USER'S PROMPT IS EITHER "Y" OR "№" 


BO WHILE NOT. (CHOICE = "N" .OR. CHOICE = "y" 
IF .NOT. (CHOICE - "N" .OR. CHOICE = "У") 
SET COLOR TO W+/R,W+/R 
@ 24,24 SAY " Response must be either Nor Y " 
DO DELAY 
ЕВ ay TO CHOICE 


) 
THEN 
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bel forms” +; 


101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
ІШЕ 
116 
117 
118 
118 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
I 
138 
139 
140 
141 
142 
143 
144 
145 
146 


148 
149 
150 
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* 
* 
* 


ENDIF CHOICE = "y" 
147| ENDDO WHILE CHOICE - 
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ENDIF .NOT. (CHOICE = "N" .OR. CHOICE = "Y") 
SET COLOR TO R+/B ,R+/B 

@ 22,70 GET CHALICE PICAN 

READ 


ENDDO WHILE .NOT. (CHOICE = "N" .OR. СНОТСЕ = "У") 


Оооо У: 


@ 22.20 ЗА С. 
DISPLAY PRINTER INFORMATION WINDOW TO USER 


IF INTRO = 1 THEN 
STORE 0 TO INTRO 
?? FLASH + "W.LABELS/" 
SET CONSOLE OFF 
WAIT TO ANS ` 
SET CONSOLE ON 
ENDIF INTRO = 1 
SET COLOR TO /W, /W 
@ 24,0 SAY MESSAGE 
SET COLOR TO /BR, /BR 
14,19 SAY IMAGE 
15,19 SAY IMAGE 
16,19 SAY IMAGE 
17,19 SAY IMAGE 
18,19 SAY IMAGE 
19,19 SAY IMAGE 
SET DEVICE TO PRINT 
DO WHILE LINECNT < SKIPONE 
@ LINECNT,1 SAY IMAGE 
LINECNT = LINECNT + 1 
ENDDO WHILE LINECNT < SKIPONE 
SKIPONE = LINECNT + 8 
SET DEVICE TO SCREEN 
SET COLOR TO W/B, W/B 
@ 24,0 SAY SPACE(80) 


(CO (CD (CD (CD (CO (co 


SET COLOR TO /BR, /BR 
14,19 SAY SPACE(40) 
15,19 SAY SPACE(40) 
16,19 SAY SPACE(40) 
17,19 SAY SPACE(40) 
18,19 SAY SPACE(40) 
19,19 SAY SPACE(40) 
LOOP 


(CD (CD (CD (CO (CO (CD 


Шар 


SKIP ONE BLANK LABEL PRIOR TO PRINTING SITE LABELS 


39:0 
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151 
152 
133 
154 
155 
156 
157 
158 
ШУ; 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
D 
172 
173 
174 
175 
176 
177 
178 
ІШӘ 
180 
181 
182 
183 
184 
185 
186 
tS? 
188 
189 
190 
191 
192 
193 
194 
1195 
196 


197| 


198 
199 
200 
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SET DEVICE TO PRINT 
* 
DO WHILE LINECNT « SKIPONE 
@ LINECNT,1 SAY " " 
LINECNT = LINECNT + 1 
ENDDO WHILE LINECNT < SKIPONE 
* 


ser DEVICE TO SCREEN 
* 


SET COLOR TO W+/B, W+/B 
@ 21,10 SAY SPACE (60) 
* 


* DISPLAY PRINTER INFORMATION WINDOW TO USER 
* 
IF INTRO = 1 THEN 
STORE 0 TO INTRO 
?? FLASH + '"W.LABELS/" 
SET CONSOLE OFF 
WAIT TO ANS 
SET CONSOLE ON 
ENDIF INTRO = 1 
* 


STORE SPACE(28) + "Printing Mailing Labels " + SPACE(28) TO MESSAGE 
SET COLOR TO /W, /W 

@ 24,0 SAY MESSAGE 

* 


DO WHILE .NOT. EOF() 
STORE TRIM(SITECITY) + ", " + TRIM(SITESTATE) + " "+; 


TRIM(SITEZIP) TO LAST LINE 
SET COLOR TO R+/B, R+/B 
IF SITECO = " '" THEN 
SKIP 
LOOP 


ENDIF SITECO - " ` ү 
@ 10,46 ЅАҮ ЅІТЕМО РІСТ "99" 
SET COLOR TO /BR, /BR 


@ 19,19 SAY LAST LINE 
ELSE 
@ 18,19 SAY LAST LIN 
ENDIF SITEADD2 >" 3 " 
ELSE 
@ 17,19 SAY LAST LINE 
ENDIF SITEADD1 >" — " 


SET DEVICE TO PRINT 


E 


201 

202 
203 
204 
205 
206 
207 
208 
209 
210 
211 

Га 
213 
214 
219 
216 
217 
216 
219 
220 
221 

222 
225 
224 
225 
226 
2217 
223 
229 
230 
231 

232 
235 
234 
235 
236 
237 
238 
239 
240 
241 

242 
243 
244 
245 
246 
247 
248 
249 
250 
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STORE 0 ТО LABELS 
DO WHILE LABELS « VAL(COPIES) 
@ LINECNT,1 SAY SPACE( 40) 


@ LINECNT+1,1 SAY 
@ LINECNT+2,1 SAY 
@ LINECNT+3,1 SAY 


IF STIEADDI > 
@ LINECNT+4, 1 


ELSE 


IF SITEADD2 > 


MKLABELS.PRG Program Listing 


SPACE(40) 


ss ese ө @ G = ө ө ө @ эз ө 6 е е е чзеееееее е аз 9" @ < ee * —" ош фе ә 


" " ТНЕМ 


@ LINECNT+5,1 SAY SITEADD2 


е 9 9 *. 99 9 99 9 9 9 6o Фф * 9 9" 9$ 99 * е е е ә е е е е е е е е ез * * oe 


@ LINECNT+6,1 SAY LAST LINE 
@ LINECNT+7,1 SAY SPACE(40) 


ELSE 


ENDIF’ 


QoQ (> 


@ LINECNT+4,1 
@ LINECNT+5,1 
@ LINECNT+6, 1 
@ LINECNT+7,1 
ENDIF SITEADD! > 

= LINECNT+8 


LINECNT 


LINECNT+5,1 SAY LAST LINE 
LINECNT+6,1 SAY SPACE( 40) 
LINECNT+7,1 SAY SPACE(40) 
SITEADD2 » " и 


SAY LAST LINE 

SAY SPACE( 40) 

SAY SPACE( 40) 

SAY SPACE(40) 
vt 


ТЕ“ Б1МЕСИТ УВ ОТНЕМ 
LINECNT - 1 
ENDIF LINECNT » 81 
LABELS = LABELS + 1 
ENDDO WHILE LABELS « COPIES 
SET DEVICE TO SCREEN 


14,19 


Тери 
ТРТ 
18219 
19,195 
SKIP 


(e) (C (CD (CO (CD (CD 


SAY 


SAY 
SAY 
SAY 
SAY 


SPACE (40) 


15,19 SAY SPACE (20) 


SPACE ( 40 ) 
SPACE ( 40) 
SPACE (40) 
SPACE( 40) 


ENDDO WHILE .NOT. ЕОҒ() 


* 


* RETURN TO THE CALLING PROGRAM 


* 


SET EXACT OFF 
RELEASE COPIES, IMAGE, INTRO, LABELS, LAST LINE, LINECNT,; 


MESSAGE, SKIPONE 
CLOSE DATABASES 


RETURN 


жжжжжжжжжжжжжжжжжжжж жжжжжж жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
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PROCEDURE MNLSTRPT.PRG 

AUTHORS : LCDR EDWARD J. CASE, SC, USN 
LCDR WINSTON H. BUCKLEY, SC, USN 
LCDR ROBERT F. BRADO, USN 
LCDR ROBERT L. BEARD III, SC, USN 

PURPOSE : PROVIDE THE USER A SPLICE MANUAL SITE 
LEVEL REPORT. 

INPUT FILES : MANUAL.DBF, TEMPONE.DBF, DESCRIPT.DBF, 
DESCRIP.NDX 

OUTPUT FILES  : NONE. 

CALLED BY : SITERPTS. PRG 


MODULES CALLED : DELAY.PRG 
GLOBAL VARIABLE: HISITE, LOSITE 


LOCAL VARIABLES: ACCEPT, CHOICE, ERROR, LINECT, MSITE, PAGENO, 
TODAY, TODATE 


DATE LAST TIME MODIFIED ======—====› 27] DECEMBER 1985 = — = mim 
CASE SELECTION = 2 MANUAL SITE LEVEL REPORT 


CREATE THE SPLICE MANUAL SITE REPORT AND CHECK IF THE REPORT 
IS TO BE PRINTED OR DISPLAYED ON THE SCREEN. 


+ * X ++ X X % X XX X X X X X X +# + + + + X X X X % X X YX X X 


SET ESCAPE OFF 
SET TALK OFF 
SET COLOR TO W+/B, W+/B, B 
CLEAR 
USE MANUAL 
GO TOP 
ТЕ ЕОЕ() = .T. THEN 
SET COLOR TO W+/R, W+/R 
@ 13,25 SAY '' The MANUALS Database is EMPTry! " 
DO DELAY 
RETURN 
ENDIF 
?? FLASH « "S.REPORTS.SCR/" 
8 24,0 SAY SPACE(80) 
SET COLOR TO R«/ , R+/ 
@ 2,27 SAY " SITE LEVEL MANUAL REPORT " 


ENSURE THAT TEMPORARY DATABASE AND INDEX DO NO EXIST, IF SO ERASE THEM 


ok 
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SET CONSOLE OFF 
ERASE TEMPONE. DBF 
ERASE ТЕМРОМЕ.МОХ 
SET CONSOLE GN 
* 
SET COLOR TO W+/BR, W+/BR 
@ 13,15 SAY "Enter site number for which the report is desired:" 
USE MANUAL INDEX MANULSIT 
* 
DO 2: 
SET COLOR ТО /BR; ВЕ 
STORE. LOS TIE ie POS 1. 
@ 13,66 GET MSITE PICT '99' 
READ 
ТЕ “МОТ  (MSITE >= IOSITPE ¿AND MSHE <= MSITE ИИИ 
SET COLOR TO W+/R, W+/R 
STORE ' Response must be between ' + LOSITE +; 


' and ' + HISITE + ' ' TO ERROR 
a 24,22 SAY ERROR 
DO DELAY 
LOOP 
ELSE 
СО TOP 
FIND &MSITE 
ТЕ ВОТ, THUEN 


STORE " Мо manuals exist for site " + МЅІТЕ +; 
", try another site " TO MESSAGE 
SET COLOR TO W«/R, W«/R 
a 24,16 SAY MESSAGE 
DO DELAY 
LOOP 
BLSE 
EXIT 
ЕЛІРІН- ЕСЕР) 525 
ENDIF МОГ (MSITE >= LOSITE GAND, MSITE <= Ttil5S 11) 
ENDDO WHILE .T. 
* 
SET COLOR TO /BR, /BR 
@ 15,15, SAY SPACE (55) 
* 


SET COLOR TO R+/ , R+/ 
a 13,13 SAY " CREATING THE TEMPORARY DATABASE AND ASSOCIATED INDEX " 
ж 


* CREATE THE TEMPORARY DATABASE TO BE USED 
ж 

SET CONSOLE OFF 

COPY STRUCTURE TO TEMPONE 

USE TEMPONE 

APPEND FROM MANUAL FOR SITENO - '&MSITE' 
INDEX ON FEATURENO TO TEMPONE 
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101| SET CONSOLE ON 

Me * 

103| * CREATE THE SPLICE EQUIPMENT PROJECT REPORT AND CHECK IF THE REPORT 

104| * IS TO BE PRINTED OR DISPLAYED ON THE SCREEN. 

mos) * 

106| SET COLOR TO /BR, /BR 

107} @ 13,12 SAY SPACE(65) 

NOS] * 

109} SET COLOR TO W+/BR, W+/BR 

110} @ 13,16 SAY " Do you want a printed report? (Yes or No): " 

111| SET COLOR TO /BR, /ВВ 

Ne 13,49 SAY "y" 

ШЕ) 8 13,56 5АУ "М" 

114| STORE "N'" TO ACCEPT 

mise 13,62 GET ACCEPT PICT "!" 

116] READ 

ШЕП * 

118| * ENSURE THAT THE USER'S RESPONSE IS EITHER "y" OR "N" 

DES * 

120| DO WHILE .NOT. (ACCEPT = "N" .OR. ACCEPT = "у") 
THEN 


1 IF .NOT. (ACCEPT = "М" .OR. ACCEPT = "y" 

| SET COLOR TO W+/R,W+/R 

123 @ 24,24 SAY " Response must be either N or Y " 
124 DO DELAY 

125 STORE "N'" TO ACCEPT 

126 ENDIF .NOT. (ACCEPT = "N" .OR. ACCEPT = "Y") 

127 SET COLOR TO /BR, /BR 

128 ИЗ 52 СЕТ АССЕРТ РІСІ """ 

129 READ 


130| ENDDO WHILE .NOT. (ACCEPT = "М" .OR. ACCEPT = "у") 
EU + 

132| SET COLOR TO /BR, /BR 

133| € 13,12 SAY SPACE(65) 

134| * 

ІШЕ! SELECT 1 

136| USE TEMPONE 

ma) SELECT 2 

138] USE DESCRIP INDEX DESCRIP 

139) SELECT TEMPONE 

140| SET RELATION TO FEATURENO INTO DESCRIP 


fi GO TOP 

142| * 

143} @ 13,12 SAY SPACE(65) 

144| * 

145| IF ACCEPT = "y" THEN 

146 ?? FLASH + "W.PRINTER/" 
117 SET CONSOLE OFF 

148 WAIT TO CHOICE 

149 SET CONSOLE ON 

150 SET COLOR TO W/B, W/B 
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201 SET COLOR TO GR+/B, GR+/B | 
202 @ 5,2 SAY "SITE CLIN  FEATUREA DESCRIPTION" 
203 @ 5,57 SAY "MANUAL DESCRIPTION" 
204 SET COLOR TO /BR, /BR 
205 STORE O TO LINECT 
206| * 
207 DO WHILE .МОТ. БОҒ() 
208 DO WHILE LINECT < 15 
209 @ LINECT+7,3 SAY SITENO 
210 @ LINECT+7,8 SAY DESCRIP->CLIN 
214 @ LINECT+7,16 SAY FEATURENO 
212 @ LINECT+7,25 SAY DESCRIP->DESCIPT 
213 @ LINECT+7,54 SAY MANLDESC 
214 LINECE = LINECr + 1 
215 SKIP 
216 IF EOF() = .T. THEN 
217 SET COLOR TO W+/R, W+/R 
218 @ 24,18 SAY " End of Tile reached, Press any key to EXIT " 
219 SET CONSOLE OFF 
220 WAIT TO ACCEPT 
22] SET CONSOLE ON 
222 EXIT 
223 ENDIF BOF() = .T. 
224 ENDDO WHILE LINECT < 15 
225 + 
226 TR БОЛЕЕ p БІНЕН 
227 EXIT 
228 ENDIF EOF() = .T. 
229 SET COLOR TO R+/B, R+/B 
230 STORE "C" TO CHOICE 
23] a22 в "т. 
232 READ 
239] 
234] * ENSURE THAT THE USER'S RESPONSE IS EITHER "vy" OR "N" 
235 09x 
236 DO WHILE .NOT. (CHOICE = "C" ,OR. CHOICE + "Х") 
237 IF .NOT. (CHOICE = "C" .OR. CHOICE - "X") THEN 
238 SET COLOR TO W+/R, W+/R 
239 @ 24,24 SAY " Response must be either Cor X " 
240 DO DELAY 
241 STORE -CA TO CHOICE 
242 ENDIF NOP. (CHOICE s "С" OR. CHOICE R) 
243 SET COLOR TO R+/B, R+/B 
244 8:22.57 GET CHOKE PICK ii 
245 READ 
246 ENDDO WHILE .NOT. (CHOICE - "C" ,OR. CHOICE - "Х") 
2411) 35 
248| * DETERMINE IF THE USER WANTS TO QUIT OR CONTINUE 
249| * 
250 IF CHOICE = C. 
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25] 

252 
253 
254 
255 
256 
257 
258 
259 
260 
261 

262 
263 
264 
265 
266 
267 
268 
269 
270 
271 

272 
273 
274 
275 
276 
277 
278 
279 
280 
281 

282 
283 
284 
285 
286 
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SET COLOR TO /BR, 


@ 07,2 SAY 
@ 08,2 SAY 
@ 09,2 SAY 
@ 10,2 SAY 
DET 2 SAY 
@ 12,2 SAY 
@ 13,2 SAY 
@ 14,2 SAY 
@ 15,2 SAY 
@ 16,2 SAY 
@ 17,2 SAY 
@ 18,2 SAY 
@ 19,2 SAY 
@ 20,2 SAY 
@ 21,2 SAY 
STORE 0 TO 
ELSE 
EXIT 


ENDIF CHOICE = 
* 


ЅРАСЕ (76) 
ЅРАСЕ( 76) 
ЅРАСЕ (76) 
ЅРАСЕ( 76) 
ЅРАСЕ(76) 
ЅРАСЕ(76) 
ЅРАСЕ(76) 
ЅРАСЕ( 76) 
ЅРАСЕ (76) 
ЅРАСЕ(76) 
ЅРАСЕ( 76) 
ЅРАСЕ(76) 
SPACE (76 ) 
SPACE(76) 
SPACE( 76 ) 
LINECT 


Ше. 


ENDDO WHILE .NOT. EOF() 


* 


ENDIF ACCEPT = "y" 
Е U 
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* ERASE THE TEMPORARY DATABASE AND ASSOCIATED INDEX USED FOR TOTALS 


* 


CLOSE DATABASES 
SET CONSOLE OFF 
ERASE TEMPONE.DBF 
ERASE TEMPONE.NDX 
SET CONSOLE ON 


SET PRINT OFF 
* 


* RETURN TO CALLING PROGRAM 


* 


RELEASE ACCEPT, CHOICE, ERROR, LINECT, MSITE, PAGENO, TODAY, TODATE 


RETURN 


жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж жжжж жжжжжжжж жжжжжжжжжжжжжжжжжжжжжжж 
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1| * PROCEDURE NEWDOADD.PRG 
2 * 
3| * AUTHORS : LCDR EDWARD J. CASE, SC, USN 
4| * LCDR WINSTON H. BUCKLEY, SC, USN 
5 LCDR ROBERT F. BRADO, USN 
6| * LCDR ROBERT L. BEARD III, SC, USN 
7 ж 
8| * PURPOSE : TO ADD A NEW DELIVERY ORDER TO THE EXISTING EQUIPMENT, 
9| ж MANUAL, AND SERIAL NUMBER DATA BASES WHILE UPDATING 
10| * ALL INDEXES. NO TEMP.DBF LINE ITEM WITH A BLANK 
11| * ОВ "XXXXXX'" FEATURE NUMBER WILL BE ADDED TO THE FILE. 
Та E 
13| * INPUT FILES : EQUIP.DBF, MANUAL.DBF, SERIALNO.DBF, TEMP.DBF, 
14] * NEWDOMOD.DBF, SERNOTMP.DBF. 
ПЕ 
16| * OUTPUT FILES : EQUIP.DBF, MANUAL.DBF, SERIALNO.DBF, TEMP.DBF, 
17| * NEWDOMOD.DBF, SERNOTMP.DBF. 
18| * 
19] * CALLED BY : NEWDOCVT. PRG 
20] 5 
21| * MODULES CALLED : SERNOBLD.PRG 
221 * 
23| * LOCAL VARIABLES: MESSAGE, MFEAT, MSITE, MINDEX 
24] * 
25| * DATE LAST TIME MODIFIED ==========> 22 DECEMBER 1985 <========== 
26| * 
27| * CLEAR SCREEN. COPY AND MODIFY INPUT FILE TO DATABASE FORMAT FOR 
28] * ALL RECORDS THAT DON'T HAVE A BLANK OR "XXXXXX'" IN THE FEATURE NUMBER. 
29| * 
30| SET COLOR 1O R+/ , R+/ 
31| @ 15,24 ЅАҮ " UPDATING THE EQUIPMENT DATABASE " 
ТЕ е Adding new records to the EQUIPMENT database" +; 
33 '' PLEASE BE PATIENT " TO MESSAGE 
34| SET COLOR TO /W, /W 
35| @ 24,0 SAY MESSAGE 
36| USE EQUIP 
37| COPY STRUCTURE TO NEWDOMOD 
38| USE NEWDOMOD 
39| APPEND FROM TEMP.DBF FOR FEATURENO <> ' " АМО, FEATURENO <> 00699 
401 * 
41i * FILL-IN THE EFFECTIVE DELIVERY ORDER DATE FIELD WITH THE DATE SUPPLIED 
42| * BY THE USER AND ADD THE DELIVERY ORDER TO THE EQUIPMENT DATABASE. 
43| * 
44| REPLACE ALL EFFDATE WITH MEFFDATE 
45| USE EQUIP INDEX EQUIPDAT, EQUIPSIT, EQUIPPRJ, EQUIPSD, EFEAT 
46| APPEND FROM NEWDOMOD 
47| * 
48 | * ADDING THE NEW RECORDS FOR THE MANUAL DATABASE. 
49| * 
SOL SET COLOR IOORU/ ВУ 
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@ 15,24 SAY " UPDATING THE MANUALS DATABASE " 


STORE " Adding new records to the MANUAL database" *; 
", PLEASE BE PATIENT " TO MESSAGE 
SET COLOR TO /W, /W 


@ 24,0 SAY MESSAGE 
CLOSE DATABASES 
SELECT 1 
USE MANUAL INDEX MANULSIT 
SELECT 2 
USE NEWDOMOD 
* 
DO WHILE .NOT. EOF() 
STORE SITENO TO MSITE 
STORE FEATURENO TO MFEAT 
STORE SITENO « FEATURENO TO MINDEX 
SELECT 1 
GO TOP 
FIND &MINDEX 
IF EOF( ) 
GO BOTTOM 
INSERT BLANK 
REPLACE FEATURENO WITH '&MFEAT' 
REPLACE SITENO WITH "&MSITE' 
ENDIF 
SELECT 2 
SKIP 
ENDDO WHILE .NOT. EOF() 
* 


* BUILDING A DUMMY SERIAL NUMBER FILE WHICH WILL BE MODIFIED AND 

* EXPANDED WHEN ALL DELIVERY ORDERS HAVE BEEN LOADED. 

ж 

SET COLOR TO R+/ , R+/ ` 

@ 15,24 SAY '' BUILDING THE SERIAL NUMBER FILE " 

STORE " Adding new records to the SERIAL NUMBER database, " +; 
' PLEASE BE PATIENT " TO MESSAGE 

SET COLOR TO /W, /W 

@ 24,0 SAY MESSAGE 

USE SERIALNO ` 

COPY STRUCTURE TO SERNOTMP 

USE SERNOTMP 

APPEND FROM NEWDOMOD 

* 


* CALL THE PROGRAM TO BUILD THE BLANK SERIAL NUMBER RECORDS 

* 

DO SERNOBLD 

STORE " Appending new records to the database may be a long process," +; 
" PLEASE BE PATIENT " TO MESSAGE 

SET COLOR TO /W, /W 

@ 24,0 SAY MESSAGE 

SET COLOR TO R+/ , R+/ 
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101| @ 15,12 SAY " APPENDING NEW RECORDS TO THE SERIAL NUMBER DATABASE " 
102} USE SERIALNO INDEX SERNOPRJ, SERNOSIT, SERNODAT, SERNOFEA 

103| APPEND FROM SERNOTMP 

104| SET COLOR TO W/B, W/B 

105| à 15,10 SAY SPACE(65) 

106| à 24,0 SAY SPACE(80) 

TOSS 

108| * RETURNING TO THE CALLING PROGRAM. 

109| * 

110| CLOSE DATABASES 


111| RETURN 
112] жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
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Page 1 NEWDOCMD.PRG Program Listing 
* PROCEDURE NEWDOCMD. PRG 
* 
* AUTHORS : LCDR EDWARD J. CASE, SC, USN 
- LCDR WINSTON H. BUCKLEY, SC, USN 
ж LCDR ROBERT F. BRADO, USN 
* LCDR ROBERT L. BEARD III, SC, USN 
ж 
11 РОКРОБЕ : LOAD NEW DELIVERY ORDERS TO THE DATABASE FILES. 
* 
= INPUT FILES : NONE. 
* 
T OUTPUT FILES >: NONE. 
* 
* CALLED BY : MAINMENU.PRG. 
* 
* MODULES CALLED : NEWDOCVT.PRG 
* | . 
* LOCAL VARIABLES: SELEKT 
* 
ВЕ ЕЕ, MOD T pi -=========> 22 ОБСЕМВЕВ 1985 <========== 
* 
* 
* 


‚ STORE "1" TO SELEKT 
DO WHILE SELEKT « "2" қ 
SET COLOR TO W/B, W/B 


CLEAR 


?2? FLASH « "W.NEWDOCMD/" 


SET CONSOLE OFF 


WAIT TO SELEKT 
SET CONSOLE ON 


ж 


DO CASE 


= 


PROCESS ROUTINE BASED ON THE USER'S SELECTION. 


CALL THE NEW DELIVERY ORDER CONVERT AND LOAD PROGRAM. 


CASE SELEKT = "1" 
DO NEWDOCVT 


+ 


RETURN TO THE MAINMENU PROGRAM. 


CASE SELEKT = "2" 


ENDCASE 
ж 


ENDDO (WHILE SELEKT - "2") 
* 


* REIURN TO THE CALLING PROGRAM 


ж 
RETURN 
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51 | жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
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о о чолоом -> 


X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X x X X X X X X X Xx x 


AUTHORS : 


PURPOSE : 


ШЧЕШТ ОЕ ЕУ : 


OUTPUT FILES : 


CALLED BY 2 
MODULES CALLED : 
GLOBAL VARIABLE: 


LOCAL VARIABLES: 


SET ESCAPE OFF 
SET TALK OFF 
SET COLOR TO W+/B, 
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PROCEDURE NEWDOCVT.PRG 


LCDR EDWARD J. CASE, SC, USN 

LCDR WINSTON H. BUCKLEY, SC, USN 
LCDR ROBERT F. BRADO, USN 

LCDR ROBERT L. BEARD III, SC, USN 


TO COMPARE AN INCOMING NEW DELIVERY ORDER TO THE 
EXISTING EQUIPMENT DATABASE AND CHECK FOR DUPLICATE 
SITE NUMBER AND DELIVERY ORDER DATE. IF THE SITE 
NUMBER AND DELIVERY DATE ARE UNIQUE OR THE USER 
DECIDES TO LOAD THE DUPLICATE SITE NUMBER/DELIVERY 
ORDER ANYWAY THEN THE NEW DELIVERY ORDER ADD 
PROGRAM IS CALLED. WHEN ALL DELIVERY ORDERS ARE 
ADDED THEN SPECIFIED INDEXES ARE UPDATED. 


TED.DBF, EQUIP.DBF, MANUAL.DBF, SERIALNO.DBF, NEW 
DELIVERY ORDER .PRN FILE, EFFDATE.NDX, EQUIPSIT.NDX, 
EQUIPPRJ.NDX, MANULSIT.NDX, SERNOPRJ.NDX, SERNOSIT.NDX, 
SERNODAT.NDX, NEWDOMOD.DBF, TEMP.DBF, SERNOTMP.DBF, 
EFEAT.NDX 


EQUIP.DBF, MANUAL.DBF, SERIAL.DBF, EFFDATE.NDX, 
FQUIPSIT.NDX, EQUIPPRJ.NDX, MANULSIT.NDX, EFEAT.NDX 
SERNOPRJ.NDX, SERNOSIT.NDX, SERNODAT.NDX. | 
NEWDOCMD. PRG 

NEWDOADD.PRG, DELAY.PRG 

HIDATE, HISITE, LODATE, LOSITE 


ACCEPT, CHOICE, DBNAME, ERASIT, ERROR, MDAY, MEFFDATE, 
MESSAGE, MKEY, MMONTH, MOLDATE, MSITE, MYEAR, NOFILE 


DATE LAST TIME MODIFIED ==s========> 22 DECEMBER 1985 <====s====== 


SET UP INITIAL STRUCTURE AND RECEIVE INPUT INFORMATION. 
AND START LOOP PROCESS. 


W+/B, B 


?? FLASH + "5.МЕНООСУТ.ЗСК/" 
a 24,0 SAY SPACE(80) 
STORE "Are all input entries correct? (Yes or No):" to CORRECT 


BO WHILE .T. 
* 


* 
* 


OBTAIN THE INPUT VALUES FROM THE USER 
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DO WHILE T T, . 


STORE SPACE(18) + "Enter the name of the .PRN file to be loaded" +; 
SPACE(18) TO MESSAGE 

SET COLOR TO /W, /W 

@ 24,0 SAY MESSAGE 

STORE '"SPLICE '' TO DBNAME 

STORE DTOC(DATE()) TO SYSDATE 

STORE SUBSTR(SYSDATE,7,2) + SUBSTR(SYSDATE,1,2) +; 
SUBSTR(SYSDATE,4,2) TO MEFFDATE 

STORE "01" TO MSITE 

SET COLOR TO /BR, /BR 


READ 
SIUONRETO TO NOG TEE 


DO WHILE .NOT. FILE(TRIM(DBNAME) +'',PRN'') 
SET COLOR TO W/B, W/B 
@ 24,0 SAY SPACE(80) 
SET COLOR TO W+/R, W+/R 
@ 24,24 SAY " File does not exist, try again " 
DO DELAY 
NOFILE = NOFILE + 1 
IF NOFILE = 3 THEN 
SET COLOR TO W+/BG, W+/BG 
8 17,15 SAY " Do you want to exit this process? (Yes or No): 
SET COLOR TO /BG, /BG 
а 13:554 SAY "ш! 
ВТ, Ом 
STORE "У" ТО ACCEPT 
8717 63 СЕГГАССЕЕТАӘРЦОИ 152 
READ 
DO WHILE .NOT. (ACCEPT s "N^ OR. -ACCEPT SE) 
IF .NOT. (ACCEPT s "М" .OR. AGGEPT = УЕ 
SET COLOR TO W+/R, W+/R 
@ 24,24 SAY '" Response must be either N or Y 
DO DELAY 
STORE Y -TO ACCEPT 
ENDIF 
SET COLOR TO /BG, /BG 
@ 17,63 СЕР ЕТ. 
READ 
ENDDO 
IF ACCEPT = "Y" THEN 
SET CONSOLE OFF 
CLOSE DATABASES 
ERASE TEMP. DBF 
ERASE NEWDOMOD.DBF 
ERASE SERNOTMP. DBF 
SET CONSOLE ON 
RELEASE ALL LIKE M*, ACCEPT, CHOICE, CORRECT, DBNAME,; 


" 


"1 
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101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 

112 
113 
114 
115 
116 
ШІ 
118 
119 
120 
121 

122 
123 
124 
125 
126 
O? 
128 
129 
130 
131 

132 
133 
134 
135 
136 
137 
138 
139 
140 
141 

142 
143 
144 
145 
146 
147 
148 
149 
150 | 
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ERASIT, NOFILE, SYSDATE 
RETURN 
ELSE 
NOFILE = 0 
ENDIF 
SET COLOR TO W+/B, W+/B 
@ 17,10 SAY SPACE(55) 
ENDIF 
SET COLOR TO /W, /W 
@ 24,0 SAY MESSAGE 
STORE "SPLICE ' TO DBNAME 
SET COLOR TO /BR, /BR 


READ 
ENDDO 
STORE TRIM(DBNAME) « ".PRN'" TO DBNAME 
USE TED 
COPY TO TEMP.DBF 
USE TEMP.DBF 
APPEND FROM &DBNAME SDF 
GO TOP 


ШЕПТЕ БЕНЕТЕК ТИЕ, ЕРЕЕСТІУЕ DATE OF THE DELIVERY ORDER 


Sich oP leh i? je a inpueert fective Date (Range + LODATE +; 
" to " + HIDATE + ")" + SPACE(17) TO MESSAGE 
SET COLOR TO /W, /W 
@ 24,0 SAY MESSAGE 
STORE "000000" TO MOLDATE 
DO WHILE .NOT. (MOLDATE >= LODATE .AND. MOLDATE <= HIDATE) 
STORE MEFFDATE TO MOLDATE 
SET COLOR TO /BR, /BR 
@ 8,54 GET MOLDATE PICT ''999999" 
READ 
DO WHILE .T. 
IF .NOT. (SUBSTR(MOLDATE,1,2) » '83" .AND.; 
SUBSTR(MOLDATE,1,2) <= "99'') THEN 
SET COLOR TO W/B, W/B 
@ 24,0 SAY SPACE(80) 
SET COLOR TO W+/R, W+/R 
8 24,16 SAY " Year portion of date must be between 84 and 99 " 
DO DELAY 
SET COLOR TO /W, /W 
@ 24,0 SAY MESSAGE 
STORE SUBSTR(MEFFDATE,1,2) TO MYEAR 
SET COLOR TO /BR, /BR 
@ 8,54 GET MYEAR PIcT "99" 
READ 
STORE MYEAR + SUBSTR(MOLDATE,3,4) TO MOLDATE 
LOOP 
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15] 
552 
153 
154 
о 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
T3 
172 
ШЕ 
174 
175 
176 


178 
179 
180 
181 
152 
183 
184 
185 
186 
187 
188 
189 
190 
19] 
192 
1) 
194 
195 
т96 * 
197 
198 
199 
200 
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ELSE 
EXIT 
ENDIF 
ENDDO WHILE .T. 


DO WHILE .T. 
IF .NOT. (SUBSTR(MOLDATE,3,2) >= "01" „АКО.; 
SUBSTR(MOLDATE,3,2) «2s "12") THEN 
SET COLOR TO W/B, W/B 
@ 24,0 SAY SPACE(80) 
SET COLOR TO W+/R, W+/R 
@ 24,16 SAY " Month portion of date must be between 01 and 12 " 
DO DELAY 
SET COLOR TO /W, /W 
@ 24,0 SAY MESSAGE 
STORE SUBSTR(MEFFDATE,3,2) TO MMONTH 
SET COLOR TO /BR, /BR 
@ 8,56 СЕГ ММОМТН РІСІ "99" 
READ 
STORE SUBSTR(MOLDATE,1,2) + MMONTH +; 
SUBSTR(MOLDATE,5,2) TO MOLDATE 
LOOP 
ELSE 
EXIT 
ENDIF 
ENDDO WHILE .T. 


DO WHILE .T. 
IF ((SUBSTR(MOLDATE,3,2) « "04" .OR. SUBSTR(MOLDATE,3,2) = "0670688 
SUBSTR(MOLDATE,3,2) = "09" .OR. SUBSTR(MOLDATE,3,2) = "11") .AND.; 
.NOT. (SUBSTR(MOLDATE,5,2) >= "01" .AND. SUBSTR(MOLDATE,5,2) <= "30")) 
SET COLOR TO W/B, W/B 
@ 24,0 SAY SPACE(80) 
SET COLOR TO W+/R, W+/R 
@ 24,16 SAY " Day portion of date must be between 01 and 30 " 
DO DELAY 
SET COLOR 10 /W, /W 
@ 24,0 SAY MESSAGE 
STORE SUBSTR(MEFFDATE,5,2) TO MDAY 
SET COLOR TO /BR, /BR 
@ 8,58 СЕТ МОАУ РТСТ "99" 
READ 
STORE SUBSTR(MOLDATE,1,4) « MDAY TO MOLDATE 
LOOP 
ELSE 


IF (SUBSTR(MOLBATE,3,2) = 02 АМО ӨШ” 
( ЗОВЗТВ (МОГОАТЕ, 5,2) >= "01" .AND.; 
SUBSTR(MOLDATE,5,2) <= "28")) ТНЕМ 
SET COLOR TO W/B, W/B 
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201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
2 21 
228 
229 
230 
231 
222 
233 
234 
235 
236 
237 
238 
289 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
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@ 24,0 SAY SPACE(80) 
SET COLOR TO W+/R, W+/R 
@ 24,16 SAY " Day portion of date must be between 01 and 28 
DO DELAY 
SET COLOR TO /W, /W 
@ 24,0 SAY MESSAGE 
STORE SUBSTR(MEFFDATE,5,2) TO MDAY 
SET COLOR TO /BR, /BR 
@ 8,58 GET MDAY РТСТ "99" 
READ ы 
STORE SUBSTR(MOLDATE,1,4) + MDAY TO MOLDATE 
LOOP 
ELSE 


IF .NOT. (SUBSTR(MOLDATE,5,2) »- "O1" .AND.; 
SUBSTR(MOLDATE,5,2) <= "31") THEN 

SET COLOR TO W/B, W/B 
@ 24,0 SAY SPACE(80) 
SET COLOR TO W+/R, W+/R 
@ 24,16 SAY " Day portion of date must be between 01 and 31 
DO DELAY 
SET COLOR TO /W, /W 
@ 24,0 SAY MESSAGE 
STORE SUBSTR(MEFFDATE,5,2) TO MDAY 
SET COLOR TO /BR, /BR 
@ 8,58 GET MDAY PICT "99" 
READ 
STORE SUBSTR(MOLDATE,1,4) + MDAY TO MOLDATE 
LOOP 

ELSE 
EXIT 

ENDIF 

ENDIF 

ENDIF 

ENDDO WHILE .T. 
ENDDO WHILE .NOT. (MOLDATE >= LODATE .AND. MOLDATE <= HIDATE) 


STORE MOLDATE 10 MEFFDATE 

SET COLOR TO W/B, W/B 

@ 24,0 SAY SPACE(80) 

STORE SPACE(8) + "Enter site number of Delivery Order to be '" +; 
"loaded to the database" + SPACE(8) TO MESSAGE 

SET COLOR TO /W, /W 

Q 24,0 SAY MESSAGE 

SET COLOR TO /BR, /BR 

@ 11,54 SAY SITENO PICT "99" 

@ 13,54 СЕТ МЅІТЕ PICT "99" 

READ 


ВЫТЬ „МОТ. (MSITE »-  LOSITE .AND. MSITE «s HISITE) 


SOY 
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255 
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258 
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263 
264 
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266 
267 
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24 
22 
213 
274 
215 
276 
277 
278 
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280 
281 
282 
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284 
285 
286 
287 
288 
289 
290 
291 
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IF .NOT. (MSITE >= LOSITE .ANDI MSITER SNI I IT) 
SET COLOR TO W/B, W/B | 
@ 24,0 SAY SPACE(80) 
SET COLOR TO W+/R, W+/R 
STORE ' Response must be between ' + LOSITE +; 

' and ' + BISITE + “S30 Ree. 

в 24, 21 SAY ERROR 
DO DELAY 
SET COLOR TO /W, /W 
8 24,0 SAY MESSAGE 
SET COLOR TO /BR, /BR 
STORE '01' TO MSITE 
@ 13,54 GET MSITE PICT "99" 
READ 

ENDIF 

ENDDO 


ASK THE USER IF THE INPUTS ARE VALID OR NOT 


SET COLOR TO W+/B, W+/B 

@ 24,0 SAY SPACE(80) 

@ 16,17 SAY CORRECT 

SET COLOR TO R+/B, R+/B 

@ 16,49 SAY "y" 

@ 16,56 SAY "N" 

STORE "N" TO ACCEPT 

d 16262 GET ACCEPT PICT EI: 
READ 


ENSURE THAT THE RESPONSE IS EITHER "Y" OR "N" 


DO WHILE .NOT. (ACCEPT = "М" .OR. ACCEPT = "У"} 
IF .NOT. (ACCEPT = "М" .OR. ACCEPT = “Y'') THEN 
SET COLOR TO W+/R, W+/R 
8 24,24 SAY " Response must be either N or Y " 
DO DELAY 
STORE "N'" TO ACCEPT 
ENDIF 
SET COLOR ТО В+/В, В+/В 
a 016,62 GEP AGCEPP PEDEM 
READ 
ENDDO 
SET COLOR TO W+/B, W+/B 
@ 16,15 SAY SPACE(55) 


ІЕ АССЕРТ - Y mH 
ASK THE USER IF THE INPUT ".PRN" FILE IS TO BE ERASED 


SET COLOR 1O W«/B, W«/B 
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306 
307 
308 
309 
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311 
512 
313 
314 
B15 
316 
ЕЛ? 
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520 
321 
B22 
B23 
324 
325 
326 
527 
328 
329 
330 
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52 
533 


355 
336 
ЭТ 
338 
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340 
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343 
344 
345 
346 
347 
348 
349 
350 
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ж 

ж 
ELSE 
ENDI 
ENDDO WH 
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STORE "Do you want to erase the input file " + DBNAME +; 
"> (Yes or No): ' TO MESSAGE 

@ 16,10 SAY MESSAGE 

STORE "N" TO ERASIT 

SET COLOR TO R+/B, R+/B 

@ 16,46 SAY DBNAME 

@ 16,45+LEN(DBNAME)+5 SAY "y" 

@ 16,45+LEN(DBNAME)+12 ЅАҮ "№" 

@ 16,45+LEN(DBNAME)+17 СЕТ ЕВАЅІТ РІСТ "I!" 

READ 


ENSURE THAT THE RESPONSE IS EITHER "Y" OR "N" 


DO WHILE „МОТ. (ЕВАЗГТ = "М" .ОВ. ЕКАЅІТ = "Ү") 
О НЕТ = М OR. ERASIT = "У") THEN 
SET COLOR TO W+/R, W+/R 
@ 24,24 SAY " Response must be either Nor Y " 
DO DELAY 
STORE "N'" TO ERASIT 
ENDIF 
SET COLOR TO R+/B, R+/B 
@ 16,45+LEN(DBNAME)+17 GET ERASIT PICT "!" 
READ 
ENDDO 
SET COLOR TO W+/B, W+/B 
@ 16,10 SAY SPACE(65) 


ТЕ ЕВАЗТТ = "У" THEN 
ERASE &DBNAME 

ENDIF 

EXIT 


SET COLOR TO /BR, /BR 
d 8854 SAY ' ii 
БИТ. ЗА SAY ~ " 

@ 13,54 say " © 

LOOP 

F 

DE ye. 


SET COLOR TO W+/B, W+/B 


ПИБ то 
REPLACE 


SAY SPACE(65) 
ALL SITENO WITH "&MSITE' 


USE EQUIP INDEX EQUIPSD 
STORE MEFFDATE + MSITE ТО МКЕУ 
O TOP 
АВ) = „Т. THEN 
DO NEWDOADD 
ELSE 
FIND &MKEY 


369 
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351 IE ЕОК() Z ТТЕ 
p DO NEWDOADD 
353 ELSE 
354 SET COLOR TO R+*/ , R+*/ 
355 @ 16,21 SAY " THIS IS A DUPLICATE DELIVERY ORDER! " 
356 SET COLOR TO W+/B, W+/B 
357 @ 17,17 SAY " Do you still desire to load it? (Yes or Ter 
358 SET COLOR TO R+/B, R+/B 
359 d qu SIE Cn ve 
360 @ 17,58 SAV iu 
361 STORE "N TO ACCEPT 
362 8 17,63 GET ACCEPI PICT “0% 
363 READ 
364 DO WHILE .NOT. (ACCEPT = "N" .OR. ACCEPT = "У") 
365 IF .NOT. (ACCEPT = "N" .OR. ACCEPT - "y") THEN 
366 SET COLOR TO W+/R, W+/R 
367 a 24,24 SAY " Response Must be either MN craves 
368 DO DELAY 
369 STORE "N'" TO ACCEPT 
370 ENDIF 
271 SET COLOR TO R+/B, R+/B 
372 @ 17,63 CGEr ACCEPI ЕЕ АГ 
373 READ 
374 ENDDO 
375 SET COLOR TO W/B, W/B 
376 @ 16,20 SAY SPACE(50) 
3273 @ 17,15 SAY SPACE(55) 
378 IF ACCEPT =. "Y" THEN 
379 DO NEWDOADD 
380 ENDIF 
381 ENDIF 
382 ENDIF 
383 Í 
384 * CHECK TO SEE IF THERE ARE MORE DELIVERY ORDERS TO BE ADDED. 
335 * 
386 SET COLOR TO R+/B, R+/B 
387 STORE "М" ТО CHOICE 
388 d 2568 GEDTRCHOICE pimo r: 
389 READ 
390; * 
391| * ENSURE THAT THE RESPONSE IS EITHER "Y" OR "N" 
3921 # 
393 DO WHILE .NOT. (CHOICE = "М" .OR. CHOICE s "y'") 
394 IF .NOT. (CHOICE - "N" .OR. CHOICE = “Y0 THEN 
395 SET COLOR TO W+/R, W+/R 
396 @ 24,24 SAY " Response must be either N or Y " 
397] DO DELAY 
398 | STORE “N TO CHOICE 
399 | ENDIF 
400 | SET COLOR TO R+/B, R+/B 
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401 Q8 21,68 GET CHOICE PICT ''!' 
402 READ 
403 ENDDO 
404| * 

405 IF CHOICE = "N'' THEN 

406 EXIT 

407 ELSE 

408 SET COLOR TO W/B, W/B 
409 @ 19,10 SAY SPACE(65) 
410 @ 21,68 SAY ” “ 

411 SET COLOR TO /BR, /BR 
412 a 8,54 SAY " И 
213 ОЗИ БА SAY ^" 

414 dete 54 еди” 

415 ENDIF 

ШІСІ * 

417| ENDDO WHILE .T. 

418| * 


419| * ERASE ALL TEMPORARY DBF FILES CREATED DURING THE LOAD 
120 > 

Pei) SET COLOR TO R+/ , R+/ 

422| @ 15,26 SAY ' ERASING TEMPORARY DATABASES " 

423! CLOSE DATABASES 

424| SET CONSOLE OFF 

425| ERASE TEMP.DBF 

426| ERASE NEWDOMOD.DBF 

427| ERASE SERNOTMP.DBF 

428| SET CONSOLE ON 

429| * 

430| * RETURN TO THE CALLING PROGRAM 

431| * 

432| RELEASE ALL LIKE M*, ACCEPT, CHOICE, CORRECT, DBNAME, ERASIT, ERROR,; 
433 NOFILE, SYSDATE 


434| REIURN 
435| жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
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1| * PROCEDURE PROJRPTS.PRG 
2 * 
3| * AUTHORS : LCDR EDWARD J. CASE, SC, USN 
4| * LCDR WINSTON H. BUCKLEY, SC, USN 
5| * LCDR ROBERT F. BRADO, USN 
6| * LCDR ROBERT L. BEARD III, SC, USN 
7 * 
8| * PURPOSE : PROVIDE THE USER A SELECTION OF PROJECT LEVEL REPORTS. 
9 * 
10| * INPUT FILES : NONE. 
DICE 
12| * OUTPUT FILES : NONE. 
үзү ® 
14| * CALLED BY : REPORCMD.PRG 
15| * 
16| * MODULES CALLED : EQPPJRPT.PRG, SNOPJRPT.PRG 
17| * : 
18| * LOCAL VARIABLES: PROJRPTS 
19| * 
20| * DATE LAST TIME MODIFIED ==========> 18 DECEMBER 1985 ‹========== 
21| * 
22| * DISPLAY THE PROCESS MENU TO THE USER AND WAIT FOR THE SELECTION. 
23| * 
24) СИЕ! № ры ЕРТС 
25| ГО WHILE PROJRPTS « "3" 
26 SET COLOR TO W/B, W/B, B 
27 CLEAR 
28 ?? FLASH « "W.PROJRPTS/" 
29 SET CONSOLE OFF 
30 WAIT TO PROJRPTS 
31 SET CONSOLE ON 
32| * 
33| Ж PROCESS ROUTINE BASED ON THE USER'S SELECTION. 
34| * 
35 DO CASE 
36| * 
37| * CALL THE EQUIPMENT PROJECT LEVEL REPORT. 
38 CASE PROJRPTS = "1" 
39 DO EQPPJRPT 
40| * 
41| * CALL THE SERIAL NUMBER PROJECT LEVEL REPORT. 
42 CASE PROJRPTS - "2" 
43 DO SNOPJRPT 
44| * 
45| * RETURN TO THE SPLICE REPORTING LEVEL MENU. 
46 CASE PROJRPTS - "3" 
47| * 
48 ENDCASE 
49| * 


50| ENDDO (WHILE PROJRPTS - "3") 


Du 
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SUL * 
52| * RETURN TO THE CALLING PROGRAM 
ES| * 
54| RETURN 


55 | ЖЖЖЖЖЖЖЖЖЖЖжжЖЖЖЖЖЖЖЖЖЖ ЖЖ ЖЖЖЖЖЖ ЖЖЖ ЖЖЖЖЖЖЖЖЖ ЖЖЖЖЖ ЖЖЖ ЖЖ ЖЖ ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖжЖ 


ES 


VO CO «IO Ole 6G) N — 


APPENDIX B: MAINTENANCE MANUAL Page 2394 


Page 1 REPORCMD.PRG Program Listing 


PROCEDURE REPORCMD. PRG 


AUTHORS : LCDR BDWARD J.) CASE, oC, Us 
LCDR WINSTON H. BUCKLEY, SC, USN 
LCDR ROBERT F. BRADO, USN 
LCDR ROBERT Е. БЕДЕР ЕН ӘБ НЕН 


PURPOSE : PROVIDE THE ÜSER AN OPPORTUNITY 1O SELECIOAGBISEGBIS 
LEVEL - PROJECT LEVEL, SITE LEVEL, OR DELIVERY ORDER 
DATE LEVEL. 

INPUT FILES : NONE. 


OUTPUT PILES : NONE. 

MODULES CALLED : PROJRPETS.PRG, SLIERFIS.PRG, DATEREDSOPBG 

LOCAL. VARIABLES: SELEKT | 
DATE LAST TIME MODIFIED 5222222-2--^ 22 DECEMBER 196891 S Ша 


DISPLAY THE REPORT LEVEL MENU TO THE USER AND WAIT FOR THE SELECTION. 


X X X X X X X ве 


STORE "1" TO SELEKT | 
DO WHILE SELEKT « "4" | 

SET COLOR TO W/B, W/B, B 

CLEAR 

?? FLASH « "W.REPORCMD/" 

SET CONSOLE OFF 

WAIT TO SELEKT 

SET CONSOLE ON 


* 


PROCESS ROUTINE BASED ON THE USER'S SELECTION. 
DO CASE 


* CALL THE PROJECT LEVEL REPORTS PROGRAM. 
CASE SELEKT = 71" 
DO PROJRPTS 


* CALL THE SITE LEVEL REPORTS PROGRAM. 
CASE SELEKT - "2" 
DO SITERPTS 


* CALL THE EFFECTIVE DELIVERY ORDER DATE LEVEL REPORTS PROGRAM. 
CASE SELEKT = "3" 
DO DATERPTS | 


* RETURN TO THE MAIN MENU PROGRAM. 
CASE SELEKT = 4" 


374 
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EU * 
52 ENDCASE 
SS * 
54| ENDDO (WHILE SELEKT « ''4") 
ESL 
56| * RETURN TO THE CALLING PROGRAM 
SUM * 
58| RETURN 


БО| жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


DUE 
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PROCEDURE NAME : SELECTOR.PRG 

AUTHORS : LCDR EDWARD J. CASE, SC, USN 
LCDR WINSTON H. BUCKLEY, SC, USN 
LCDR ROBERT F. BRADO, USN 
LCDR ROBERT L. BEARD Е se suet 

PURPOSE : TO PERMIT THE USER TO SELECT THE DESIRED PC T 
ACTION. CHOICES INCLUDE: THE SPLICE CONEIGUBBPES 


LOTUS 1-2-3 FOR "WHAT-IF" ANALYSIS, AND THE dBASE III 
SPLICE CONFIGURATION MANAGEMENT SYSTEM. CHANGES TO 
ACTIVE DIRECTORITES AND CALLS TO dBASE EXTERNAL PROGRAMS 
ARE EFFECTED WITH THE dBASE "RUN' COMMAND. 


INPUT FILES : NONE. 

OUTPUT FILES : NONE. 

MODULES CALLED : SPLICE.COM; 123.EXE, MAINMENU.PRG, DELAY.PRG, WS.COM 
GLOBAL VARIABLE: FLASH 

LOCAL VARIABLES: ANS 

DATE LAST TIME MODIFIED ===s=======> 18 DECEMBER 1985 <=s==ss=s== 


ж 
ж 
* 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
* 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
* DBASE PROGRAM CONFIGURATION VARIABLES: 
ж 

SET BELG OFF 

SET CONSOLE ON 

SEP INTENSITY OEF 

SEI SCOREBOARD OFF 

SET TALK OFF 

ж 


* DISPLAY THE PROCESS MENU TO THE USER AND WAIT FOR THE USER'S CHOICE. 
ж 
PUBLIC FLASH 
22 CHR(145) + “L.SPLICE.WIN/" 
STORE "1" TO ANS 
DO WHILE .T. 
SET COLOR TO W+/B, W+/B, B 
CLEAR 
FLASH = CHR(145) 
?? FLASH + "S.SELECTOR.SCR/" 
@ 24,0 SAY SPACE (80) 
SET COLOR TO R+/B,R+/B 
@ 21,53 GET ANS PICT "9" 
READ 
DO WHILE (ANS < ' Ор. АМОС) 
IF (ANS « "1" .OR. ANS » '6") THEN 


DIG 


s 
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ж + 


еее 


Жж жк 


ж 


* 


SET COLOR TO W+/R,W+/R 
а 24,23 SAY " Response must be between 1 and 6 
DO DELAY 
STORE "1" TO ANS 

ENDIF 

SET COLOR TO R+/B,R+/B 

Q 21,53 GET ANS PICT "9" 

READ 

ENDDO 


PERFORM APPROPRIATE TASK BASED ON THE USER'S CHOICE. 
DO CASE 


CHANCE THE ACTIVE DIRECTORY TO TURBO AND CALL SPLICE.CUM. 
COPY THE OUTBEIT .PRN FILE TO THE dBASE ТТТ SUBDIRECTORY. 


CASE ANS = "1" 
RUN CD\TURBO 
RUN SPLICE.COM 
RUN COPY *.PRN \DBASEIII\*.PRN 
RUN CD\DBASEIII 
STORE "1" ТО АМЗ 


CHANGE THE ACTIVE SUBDIRECTORY TO LOTUS AND CALL 123.EXE. THE USER 
SUBDIRECTORY WHILE IN LOTUS MUST BE dBASE III. 


CASE ANS = "2" 
RUN CLS 
RUN ECHO WHEN IN 123, CHANGE THE DEFAULT DIRECTORY TO DBASEIII 
RUN PAUSE 
RUN CD\LOTUS 
RUN 123 
RUN CD\DBASEIII 
STORE "2" TO ANS 


CALL THE CONFIGURATION MANAGEMENT SYSTEM dBASE III PROGRAM 


CASE ANS = "3" 
DO MAINMENU 
STORE "3" TO ANS 


CHANGE THE ACTIVE DIRECTORY TO WORSTAR AND EDIT THE USER'S MANUAL 


CASE ANS = "4" 
RUN CLS 
RUN CD\WORDSTAR 
RUN COPY USERS.MAN SPLICE.MAN 
RUN WS.COM SPLICE.MAN 
RUN DEL SPLICE.MAN 


Dos 
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101 RUN CD\DBASEIII 
102 STORE "4" TO ANS 
103 15+ 
104} * 
105) * RETURN THE USER TO dBASE SYSTEM CONTROL. 
106| + 
107 CASE ANS - ''5" 
108 CLEAR 
109 CLEAR ALL 
110 EXIT 
111} * 
ШУАШ; RETURN THE USER TO OPERATING SYSTEM CONTROL. 
Ti T 
114 CASE ANS = "6" 
115 CLEAR 
116 CLEAR ALL 
117 STORE 0 TO CONTINUE 
118 QUIT 
119| * 
120 ENDCASE 
2i 
122| * CONTINUE PROCESSING LOOP CONTROL CHECK. 
о 


124| ENDDO WHILE .T. 
125| ЖЖЖ ЖЖК ЕЖ АЖ ЖЖЖ ЖЖЖ kee ok ok oj se ok oj e ok ЖЖС АЖК ЖАКЕ ЖЕЖ Ж Еж ЖЖЖ СЕТ 


378 
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* PROCEDURE SERNOBLD.PRG 
* 
* AUTHORS : LCDR EDWARD J. CASE, SC, USN 
ж LCDR WINSTON H. BUCKLEY, SC, USN 
* LCDR ROBERT F. BRADO, USN 
* LCDR ROBERT L. BEARD III, SC, USN 
ж 
* PURPOSE : TO BUILD BLANK SERIAL NUMBER RECORDS. 
ж 
* INPUT FILES : SERNOTMP.DBF 
* 
ж OUTPUT FILES : SERNOTMP.DBF 
* 
* MODULES CALLED : NONE 
* 
* CALLED BY : NEWDOADD. PRG 
* 
* LOCAL VARIABLES: CTOTQTIY, INITIAL, MEFFDATE, MFEATURE, MQTY, 
* MSERIALN, MSITE, REC COUNT 
* 
* DATE LAST TIME MODIFIED ==========> 23 DECEMBER 1985 <========== 
* 
* IF NOT EOF, DETERMINE THE COMPONENT QUANTITY. WHILE THE QUANTITY 
* IS GREATER THAN 1, BUILD AND EXPAND A BLANK SERIAL NUMBER RECORD. 
* 
STORE 1 TO INITIAL 
USE SERNOTMP 
GO TOP 
HO WHILE .T. 
IF BOF() - .T. THEN 
EXIT 
ELSE 
* 
* IF NOT BOF AND NOT A BLANK RECORD, STORE ITEMS TO MEMORY VARIABLES. 
* 
IF INITIAL - 1 THEN 
SET COLOR TO GR+/B, GR+/B 
@ 17,21 SAY "FEATURE:' 
@ 17,40 SAY "RECORD NUMBER :" 
@ 19,18 SAY “Building and expanding sub-record " 
@ 19,56 SAY "of" 
STORE 0 TO INITIAL 
ENDIF 
SET COLOR TO /BR, /BR 
@ 17,31 SAY FEATURENO РІСІ "999999" 
SET COLOR TO R+/B, R+/B 
@ 17,55 SAY RECNO() PICT "9999" 
SET COLOR TO W+/BG, W+/BG 
STORE 1 TO REC COUNT 
8 19,52 SAY REC COUNT PICT "999" 


OU 
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51 8 19,59 5ДҮ ОТУ РІСІ "999" 
82 STORE EFFDATE TO MEFFDATE 
53 STORE SITENO TO MSITE 
54 STORE FEATURENO TO MFEATURE 
55 STORE OPY TO Moly, Gloria 
56 REPLACE TOTOTY WITH MQTY 
2 STORE ' ' TO MSERIALN 
58 DO WHILE MOTY > 1 
59 REC COUNT = REC COUNT + 1 
60 @ 19,52 SAY REC (ТҮҮЛӨР Е R 
61 INSERT BLANK 
62 REPLACE TOTQOTY WITH CTOTOTY 
63 REPLACE QTY WITH MOTY - 1 
64 REPLACE EFFDATE WITH MEFFDATE 
65 REPLACE SITENO WITH MSITE 
66 REPLACE FEATURENO WITH MFEATURE 
67 REPLACE SERIALNO WITH MSERIALN 
68 MOTY = MOTY - 1 
69 ENDDO WHILE MQTY > 1 
О 
2] SKIP 
22 ENDIF EOF() - .T. 
USC 
74| ENDDO WHILE .T. 
ТӘЛ 
76| * CLEAR OUT THE STATUS FIELD LINES 
ТБ 
78| SET COLOR TO W«/B, W«/B 
79| @ 15,10 SAY SPACE(60) 
80} @ 17,10 SAY SPACE(60) 
81! @ 19,10 SAY SPACE(60) 
SZ lee 
83| * RETURN TO THE CALLING PROGRAM 
84| * 
Bel RELEASE ALL LIKE М*, СТОТОТУ, INITIAL, REC COUNT 
86| CLOSE DATABASES 
87| RETURN 
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MODULES CALLED : SERNOUPD.PRG, SERNOREV.PRG 
LOCAL VARIABLES: SELEKT 
DATE LAST TIME MODIFIED == 0 26 DECEMBER 1985 (ЕЕ -------- 


DISPLAY THE PROCESS MENU TO THE USER AND WAIT FOR THE SELECTION. 


Page 1 SERNOCMD.PRG Program Listing 
* PROCEDURE SERNOCMD.PRG 
* 
* AUTHORS : LCDR EDWARD J. CASE, SC, USN 
* LCDR WINSTON H. BUCKLEY, SC, USN 
Е LCDR ROBERT F. BRADO, USN 
* LCDR ROBERT L. BEARD III, SC, USN 
* 
* PURPOSE SSEROVIDES THE USER THE OPPORTUNITY TO INPUT 
* THE COMPONENT SERIAL NUMBER OR REVIEW THE 
f THE SERIAL NUMBER DATABASE RECORDS. 
* . 
* INPUT FILES : NONE 
* 
* OUTPUT FILES >: NONE 
* 
* CALLED BY : MAINMENU.PRG 
* 
* 
* 
ж 
ж 
ж 
ж 
ж 
ж 


STORE '1" TO SELEKT 

DO WHILE SELEKT « '3" 
SET COLOR TO W/B, W/B, B 
CLEAR 
?? FLASH + '"W.SERNOCMD/" 
SET CONSOLE OFF 
WAIT TO SELEKT 
SET CONSOLE ON 


* PROCESS ROUTINE BASED ON THE USER'S SELECTION. 
DO CASE 
* CALL THE SERIAL NUMBER UPDATE PROGRAM. 
CASE SELEKT = "1" 
DO SERNOUPD 
* CALL SERIAL NUMBER REVIEW PROGRAM. 
CASE SELEKT - "2" 
DO SERNOREV 


* RETURN TO THE MAIN MENU PROGRAM. 
CASE SELEKT = "3" 


ENDCASE 
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* 
ENDDO (WHILE SELEKT < ''3'') 
* 
* RETURN TO THE CALLING PROGRAM 
* 
RETURN 
жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
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Page 1 SERNOREV.PRG Program Listing 
* PROCEDURE SERNOREV. PRG 
* 
* AUTHORS : LCDR EDWARD J. CASE, SC, USN 
Е LCDR WINSTON H. BUCKLEY, SC, USN 
t LCDR ROBERT F. BRADO, USN 
* LCDR ROBERT L. BEARD III, SC, USN 
* 
Pe PURPOSE ; TO ENABLE THE USER TO REVIEW ALL RECORDS IN THE 
E SERIAL NUMBER DATABASE. 
* 
INPUT FILES : SERIALNO.DBF, SERNOSIT.NDX 
* 
BXOUTPUT FILES : SERTALNOTDEF, SERNOSTT. NDX 
* 
* CALLED BY : SERNOCMD. PRG 
ж 
* MODULES CALLED : DELAY.PRG 
* | 
* GLOBAL VARIABLE: HIFNUM, HISITE, LOFNUM, LOSITE 
* 
* LOCAL VARIABLES: ACCEPT, CHOICE, CURRENTNO, EOF, FIRST REC, LAST REC, 
* МЕЕБАТ, МЕБАЛОКЕ, М6ТТЕ, ТОЕ 
x 
ж DATE LAST TIME MOD IF IED —— A 26 DECEMBER 1985 = == === === 
ж 
ШАҒАСЫ SELECTION = 2 REVIEW SERIAL NUMBER FILE RECORDS 
* 
* USE SERIAL NUMBER DATABASE INDEXED ON SITE NUMBER AND WAIT FOR THE 
* USER TO INPUT THE SITE NUMBER, THEN START REVIEWING FROM THAT POINT. 
* 


SET ESCAPE OFF 
oer TALK OFF 
SELECT 1 
USE SERIALNO 
GO TOP 
SET COLOR TO W«/B, W«/B, B 
CLEAR 
ШЕЕОЕ() = .T. THEN 
SET COLOR TO W+/R, W+/R 
8 13,22 SAY " The SERIAL NUMBER Database is EMPTY! " 
BO DELAY 
RETURN 
ENDIF 
?? FLASH + '"S.SERIALNO.SCR/" 
SET COLOR TO W+/B, W+/B 
@ 24,0 SAY SPACE(80) 
SET COLOR TO R+/ , R+/ 
@ 3,26 SAY '' SERIAL NUMBER REVIEW FORMAT " 
Ewer Enter 00 to start at TOF, 99 to start at EOF or a site number " +; 
ЕСЕН NU SENT "mg"  HISITE - " " qO MESSAGE 
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STE * 

526 WHILE w h. 

53 SET COLOR 10 /W, /W 

54 Q 24,0 SAY MESSAGE 

55 SET COLOR TO /BR, /BR 

56 STORE '00' TO MSITE 

57 @ 09,20 GET MSITE PICT '99' 

58 READ 

59 IF .NOT. ((MSITE >= 00: AND. MSITE < рО 
60 MSITE = '99') THEN 

61 SET COLOR TO W/B, W/B 

62 @ 24,0 SAY SPACE(80) 

63 SET COLOR TO W+/R,W+/R 

64 STORE ' Response must be between ' + LOSITE + ' and ' +; 
65 HISITE + ', Zero (00) or 99 ' TO ERROR 
66 @ 24,13 SAY ERROR 

67 DO DELAY 

68 LOOP 

69 ELSE 

70 IF (MSITE = ‘00° .OR. MSITE = '99') THEN 

71 IF MSITE = '00' THEN 

72 GO BOTTOM 

73 STORE RECNO() TO LAST REC 

74 GO TOP ” 

75 STORE RECOM IO FIRST КЕЕ 

76 EDSE 

va СО ТОР 

78 SIORE RBECNO() 'IO FIRST REC 

mo GO BOTTOM 

80 SIORE RECNO() TO LAST REC 

81 ENDIF (MSIE = 00: 

82 BAIT 

83 ELSE 

84 USE SERIALNO INDEX SERNOSIT 

85 GO TOP 

86 FIND &MSITE 

87 ов! 

88 SET COLOR TO W/B, W/B 

89 @ 24,0 SAY SPACE(80) 

90 SET COLOR TO W+/R, W+/R 

91 STORE " No records exist for site number " + MSITE +; 
92 ", try again '" TO ERROR 

93 @ 24,16 SAY ERROR 

94 DO DELAY 

95 LOOP 

96 ELSE 

97| EXIT 

98| ENDIF BOF() s Т. 

99| ENDIF (MSITE = "00" ОВ. МЕ S и 
100! ENDIF .NOT. ((MSITE >= '00' .AND. MSITE «s HISITE) -ORT 
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ENDDO WHILE .T. 
* 
STORE SPACE(10) « 'Enter "00 " to start at TOF or a six digit ' +; 
'feature number' « SPACE(10) TO MESSAGE 
IF (MSITE »- LOSITE .AND. MSITE «- HISITE) THEN 
DO WHILE .T. 
SET COLOR TO /W, /W 


@ 24,0 SAY MESSAGE 

SET COLOR TO /BR, /BR 

STORE '00 ' TO MFEAT 

@ 13,45 GET MFEAT PICT '999999' 

READ 

ТЕ .NOT. ((MFEAT >= LOFNUM .AND. МЕЕАТ <= HIFNUM) .OR.; 
MFEAT = '00 ') THEN 


SET COLOR TO W/B, W/B 

@ 24,0 SAY SPACE(80) 

SET COLOR TO W+/R, W+/R 

STORE ' Response must be between ' + LOFNUM + ' and ' +; 
HIFNUM + ' or Zero (00) ' TO ERROR 


@ 24,9 SAY ERROR 
DO DELAY 
_ LOOP 
ELSE 
IF (MFEAT >= LOFNUM .AND. MFEAT <= HIFNUM) 
IF MFEAT = '99 ' THEN 


SET COLOR TO W/B, W/B 

Q 24,0 SAY SPACE(80) 

SET COLOR TO W«/R, W+/R 

STORE ' Response must be between ' + LOFNUM +; 


' and ' + HIFNUM + ' or Zero (00) ' TO ERROR 
@ 24,9 SAY ERROR 
DO DELAY 
LOOP 
ENDIF MFEAT = '99 
STORE MSITE + MFEAT TO MKEY 
USE SERIALNO INDEX SERNOFEA 
GO TOP 
FIND &MKEY 


ЕОР) = т THEN 
SET COLOR TO W/B, W/B 
@ 24,0 SAY SPACE(80) 
SET COLOR TO W+/R, W+/R 
STORE '" No record with feature number " + МЕЕАТ +; 
" exists, try again ' TO ERROR 
@ 24,12 SAY ERROR 
DO DELAY 
LOOP 
ELSE 
EXIT 
ENDIF BOP() = .T. 
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151 ELSE 
152 EXIT 
153 ENDIF (MFEAT >= LOFNUM .AND. MFEAT <= HIFNUM) 
154 ENDIF 
1:55 ENDEOG WHILE <1: 
156| ENDIF .NOT. (MSITE >= LOSITE .OR. МЕТЕ «OD ESSEN 
il s | 
158] STORE " At beginning of records for site number " +; | 
159 MSITE + "” ~“ TO TOF | 
160| STORE " At end of records for site number "X MSIBES r nm | 


161| SET COLOR TO W/B, W/B 
162| Q 24,0 SAY SPACE(80) 
ж 


163 | 
164| DO WHILE .T. 

1651 * | 
166! * USING THE SERIAL NUMBER REVIEW FORMAT FILE TO PRODUCE THE SCREEN | 
1671 ж DISPLAY, IF NOT AT THE END OF FILE. 

168] * 

169 STORE FEATURENO TO MFEATURE 

170 SELECT 2 

171 USE DESCRIP INDEX DESCRIP 

1721 FIND &MFEATURE 

173 STORE CLIN TO MCLIN 

174 STORE DESCIPT TO MDESCIPT | 
175 SELECT 1 

176 SET COLOR TO R+/B, R+/B 

177 @ 6,45 SAY RECNO() PICT "9999" 

178 SET COLOR TO /BR, /BR 

179 a 9,20 SAY SITENO PICT '99" 

180 @ 9,68 SAY EFFDATE PICT "999999" 

181 Q 12,45 SAY MCLIN PICT '9999" 

182 Q 13,45 SAY FEATURENO PICT "999999" 

183 а 14 45 SAY MDESCIPT PICT "!t!:trbtrtrs Cea rotor mper pol 

184 a 15,45 SAY TOTOTY PICT "999" 

185 SET COLOR TO W+/BG, W+/BG 

186 Q 17,45 SAY QTY PICT "999" 

187 @ 17,52 ЗАУ ТОТОТУ РТСТ "999" 

188 SET COLOR TO /BR, /BR 

189 @ 19,45- -SAY SERIALNOTPICI ОИ 

190| ENDIF 

191| * 

192 SET COLOR TO R+/B, R«/B 

193 STORE "N! TO CHOICE 

194 @ 22,68 СЕТ СЕД Ер s 

195 ВЕАР 

196| * 

197| ж ENSURE THAT THE USER'S PROMPT IS EITHER "N', "p'" OR "x" | 
198| * 

199 DO WHILE .NOT. (CHOICE - "N" .OR. CHOICE = “BY (ORS CHOICE UD 

200 IF .NOT. (CHOICE = "М" „ОВ. CHOICE = "pP" JOR) CHOICE = x Пиша 
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201 SET COLOR TO W+/R, W+/R 
202 @ 24,23 SAY " Response must be either N, Por X" 
2035 DO DELAY 
204 STORE "М" TO CHOICE 
205 ENDIF 
206 SET COLOR TO R+/B, R+/B 
207 @ 22,68 СЕТ СНОТСЕ РТСТ "t^ 
208 READ 
209 ENDDO 
ОШ * 
211 SET COLOR TO W+/R, W+/R 
ы 
213| * SKIP TO THE NEXT RECORD TO BE REVIEWED 
ІІ X 
215 IF CHOICE = "N'' THEN 
216 IF (MSITE >= LOSITE .AND. MSITE <= HISITE) THEN 
217 SKIP 
218 IF BOF() = .T. THEN 
219 SKIP - 1 
220 @ 24,21 SAY EOF 
221 DO DELAY 
222 LOOP 
223 ELSE 
224 IF .NOT. (SITENO = MSITE) THEN 
225 SKIP - 1 
226 8 24,21 SAY EOF 
227 DO DELAY 
220 LOOP 
229 ENDIF 
230 ENDIF EOF() = .T. 
231 ELSE 
232 IF RECNO() - LAST REC THEN 
253 GO TOP 
234 ELSE 
255 SKIP 
236 ENDIF 
237 ENDIF (MSITE >= LOSITE .AND. MSITE <= HISITE) 
238 ENDIF CHOICE = "№" 
239| * 
240| * SKIP TO THE PREVIOUS RECORD 
ШІ! ж 
242 IF CHOICE = "P" THEN 
243 STORE RECNO() TO CURRENTNO 
244 IF (MSITE >= LOSITE .AND. MSITE <= HISITE) THEN 
245 SKIP = 1 
246 IF BOF() = .T. THEN 
247 GOTO CURRENTNO 
248 @ 24,16 SAY TOF 
249 “DO DELAY 
250 LOOP 
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ELSE 
IF .NOT. (SITENO - MSITE) THEN 
SKIP 
@ 24,16 SAY TOF 
DO DELAY 
LOOP 
ENDIF 
ENDIF BOF() = .Т. 
ELSE 
IF RECNO() = FIRST REC THEN 
GO BOTTOM 
ELSE 
SKIP - 1 
ENDIF 
ENDIF (MSITE >= LOSITE .AND. MSITE <= HISITE') 


ENDIF CHOICE = "p" 


* 


* USER HAS DECIDED TO EXIT THE REVIEW 
* 
IF CHOICE: ruas 
EXIT 
ENDIF 
ENDDO WHILE .T. 
ж 


* RETURN TO CALLING PROGRAM. 

* 

RELEASE ALL LIKE M*, ACCEPT, CHOICE, CURRENTNO, EOF, FIRST REC,; 
LAST REC, TOF 

CLOSE DATABASES 


RETURN 
BOO OOK KK KR KR Ko CK KK kK ak kk 
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Page 1 SERNOUPD.PRG Program Listing 
1| * PROCEDURE SERNOUPD. PRG 
2 ж 
3| * AUTHORS : LCDR EDWARD J. CASE, SC, USN 
4| * LCDR WINSTON H. BUCKLEY, SC, USN 
E * LCDR ROBERT F. BRADO, USN 
6| * LCDR ROBERT L. BEARD III, SC, USN 
7| * 
8| * PURPOSE : TO ENABLE THE USER TO INPUT THE SERIAL NUMBERS FOR 
9j * THE SERIAL NUMBER DATABASE. 
О + 
11| * INPUT FILES : SERIALNO.DBF, SERNOSIT.NDX 
12 * 
13| * OUTPUT FILES  : SERIALNO.DBF, SERNOSIT.NDX 
ША * 
ШІ Е CALLED BY : SERNOCMD. PRG 
Mol * 
17| * MODULES CALLED : DELAY.PRG 
ПС * 
19| * GLOBAL VARIABLE: HIDATE, HIFNUM, HISITE, LODATE, LOFNUM, LOSITE 
20| * 
21| * LOCAL VARIABLES: ACCEPT, ANS, CHOICE, CURRENTNO, EOF, INTRO, MDATE,; 
po = MDAY, MESSAGE, MMONTH, MOLDATE, MYEAR, NODATE,; 
BS * NOFIND, SYSDATE, TOF 
EM * 
25 * DATE LAST TIME MODIFIED === === 26 DECEMBER 1985 «---------- 
26) * 
27| * CASE SELECTION = 2 REVIEW SERIAL NUMBER FILE RECORDS 
Ppi * 
29| * USE SERIAL NUMBER DATABASE INDEXED ON SITE NUMBER AND WAIT FOR THE 
30| * USER TO INPUT THE SITE NUMBER, THEN START REVIEWING FROM THAT POINT. 
| ж 
32| ЅЕТ ЕЅСАРЕ ОҒЕ 
33| SET TALK OFF 
КО СЕГЕСТ 1 
35| USE SERIALNO 
Bo) GO TOP 
37| SET COLOR TO W+/B, W+/B, B 
38| CLEAR 
39| IF ROF() = .T. THEN 
40 SET COLOR TO W+/R, W+/R 
4] @ 13,22 SAY '' The SERIAL NUMBER Database is EMPTY! " 
42 DO DELAY 
43 RETURN 
44| ENDIF 
45| ?? FLASH + '"S.SERIALNO.SCR/" 
46| SET COLOR TO W+/B, W+/B 
47| @ 24,0 SAY SPACE(80) 
48] SET COLOR TO R«/ , R«/ 
49| @ 3,26 SAY " SERIAL NUMBER UPDATE FORMAT " 
|) STORE SPACE(22) + “Enter a Site Number between '' + LOSITE +; 
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51 " and " « HISITE « SPACE(21) TO MESSAGE 
52| USE SERIALNO INDEX SERNOSIT 
БӨ ы 
54 DO WHILE СТ. 
55 SET COLOR TO /W, /W 
56 @ 24,0 SAY MESSAGE 
57 SET COLOR TO /BR, /BR 
58 STORE LOSITE TO MSITE 
59 @ 09,20 GET MSITE PICT '99' 
60 READ 
61 ТЕ „МОТ. (MSITE >= LOSITE АТ. МОШЕ а Е) 
62 SET COLOR TO W/B, W/B 
63 @ 24,0 SAY SPACE(80) 
64 SET COLOR TO W+/R, W+/R 
65 STORE ' Response must be between ' + LOSITE +; 
66 “and |- HISITE e  “TORERROR 
67 @ 24,22 SAY ERROR 
68 DO DELAY 
69 LOOP 
70 ELSE 
71 GO TOP 
72 FIND &MSITE 
73 ТЕ BOR АЕ 
74 SET COLOR TO W/B, W/B 
75 @ 24,0 SAY SPACE(80) 
76 SET COLOR TO W+/R, W+/R 
27 STORE " No records exist for site number " * MSITE x5 
78 М Есу аш ТВ 
79 а 24,16 SAY ERROR 
80 DO DELAY 
81 LOOP 
82 ELSE 
83 BALE 
84 ENDIF ВОТ, 
85 ENDIE- .NOT. (MSITE >=" LOSITE: -AND MSITE <= HISTIE) 


86| ЕМОГО WHILE .NOT. (MSITE >= LOSITE ¿AND МӘЛТЕ <= Ш 
57 F 

88| STORE SPACE(17) + 'Input Effective Date (Range ' + LODATE +; 
89 * ko ' + HIDATE + ')' 4 SPACE(17) ТО MESSAGE 

90| STORE DIOC(DATE()) TO SYSDATE 

91! STORE SUBSTR(SYSDATE,7,2) + SUBSTR(SYSDATE,1,2) +; 

92 SUBSTR(SYSDATE,4,2) TO MDATE 

93| STORE O TO NOFIND 

94| STORE "000000" TO MOLDATE 

951 USE SERIALNO INDEX SERNODAT 

95 ë 

97Г DO WHILE „МОТ. (MOLDATE >= LODATE AND. MOLDATE ТВ 
98 SET COLOR TO /W, /W 

99 @ 24,0 SAY MESSAGE 
100 | STORE MDATE TO MOLDATE 
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ж 


SET COLOR TO /BR, /BR 
@ 9,68 GET MOLDATE PICT "999999" 
READ. 
DO ИНЕШЕ T. 
IF .NOT. (SUBSTR(MOLDATE,1,2) » "83" .AND.; 
SUBSTR(MOLDATE,1,2) <= "99") THEN 
SET COLOR TO W/B, W/B 
@ 24,0 SAY SPACE(80) 
SET COLOR TO W+/R, W+/R 
STORE " Year portion of date must be between 84 and 99 '; 
TO ERROR | 
@ 24,16 SAY ERROR 
DO DELAY 
SET COLOR TO /W, /W 2 
@ 24,0 SAY MESSAGE 
STORE SUBSTR(MDATE,1,2) TO MYEAR 
SET COLOR TO /BR, /BR 
@ 9,68 GET MYEAR PICT "99" 
READ 
STORE MYEAR + SUBSTR(MOLDATE,3,4) TO MOLDATE 
LOOP 
ELSE 
EXET 
ENDIF 
ENDDO WHILE .T. 


DO WHILE .T. 
те NOT. (SUBSTR(MOLDATE,3,2) >= "01" .AND.; 
SUBSTR(MOLDATE,3,2) <= ''12'') THEN 
SET COLOR TO W/B, W/B 
@ 24,0 SAY SPACE(80) 
SET COLOR TO W+/R, W+/R 
@ 24,16 SAY " Month portion of date must be between 01 and 12 " 
DO DELAY 
SET COLOR ТО /W, /W 
@ 24,0 SAY MESSAGE 
STORE SUBSTR(MDATE,3,2) TO MMONTH 
SET COLOR TO /BR, /BR 
@ 9,70 GET MMONTH PICT ''99" 
READ 
STORE SUBSTR(MOLDATE,1,2) + MMONTH +; 
SUBSTR(MOLDATE,5,2) TO MOLDATE 

LOOP 

ELSE 
EXIT 

ENDIF 

ENDDO WHILE .T. 


DO WHILE .T. 
IF ((SUBSTR(MOLDATE,3,2)-'04" „ОВ. SUBSTR(MOLDATE,3,2)-'06" .OR.; 
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SUBSTR(MOLDATE,3,2)z'09" „ОВ. SUBSTR(MOLDATE,3,2)s' 11") .AND.; 
.NOT. (SUBSTR(MOLDATE,5,2)»z'01'" .AND.; 
SUBSTR(MOLDATE,5,2)«2'30")) THEN 

SET COLOR TO W/B, W/B 

@ 24,0 SAY SPACE(80) 

SET COLOR TO W+/R, W+/R 

@ 24,16 SAY " Day portion of date must be between 01 and 30 " 
DO DELAY | 

SET COLOR ТО /W, /W 

@ 24,0 SAY MESSAGE 

STORE SUBSTR(MDATE,5,2) TO MDAY 

SET COLOR TO /BR, /BR 

@ 9,72 GET MDAY РТСТ "99" 


READ Е 
STORE SUBSTR(MOLDATE,1,4) + MDAY TO MOLDATE 
LOOP 

ELSE 

IF (SUBSTR(MOLDATE,3,2) - "02" .AND. .NOT.; 


(SUBSTR(MOLDATE,5,2) »-» "O1" .AND.; 
SUBSTR(MOLDATE,5,2) «- '28")) THEN 
SET COLOR TO W/B, W/B 
@ 24,0 SAY SPACE(80) 
SET COLOR TO W+/R, W+/R 
@ 24,16 SAY " Day portion of date must be between 01 and 28 " 
DO DELAY 
SET COLOR TO /W, /W 
@ 24,0 SAY MESSAGE 
STORE SUBSTR(MDATE,5,2) TO MDAY 
SET COLOR TO /BR, /BR 
a 9,72 GET MDAY PICT "99" 
READ 
STORE SUBSTR(MOLDATE,1,4) « MDAY TO MOLDATE 
LOOP 
ELSE 


IF .NOT. (SUBSTR(MOLDATE,5,2) >= "O1" .AND.; 
SUBSTR(MOLDATE,5,2) <= “31 ) THEN 
SET COLOR TO W/B, W/B 
@ 24,0 SAY SPACE( 80) 
SET COLOR TO W+/R, W+/R 
@ 24,16 SAY '" Day portion of date must be between 01 and 31 " 
DO DELAY 
SET COLOR TO /w, /W 
@ 24,0 SAY MESSAGE 
STORE SUBSTR(MDATE, 5,2) ТО MBAY 
SET COLOR TO /BR, /BR 
@ 9,72 GET MDAY PICT "99" 
READ 
STORE SUBSTR(MOLDATE,1,4) + MDAY ‘TO MOLDATE 
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LOOP 
ELSE 
EXIT 
ENDIF 
ENDIF 
ENDIF 
ENDDO WHILE .T. 


БЕК ТЕ THE USER'S DATE IS A VALID DATE FOR THE SITE SELECTED 


STORE MSITE « MOLDATE TO MKEY 
GO TOP 
FIND &MKEY 
ШЕРОВ) = „Т. THEN 
NOFIND = NOFIND + 1 
IF NOFIND = 3 THEN 
SET COLOR TO W+/B, W+/B 
@ 24,0 SAY SPACE(80) 
?? FLASH + "W.SERNOFND/'"' 
SET CONSOLE OFF 
WAIT TO ANS 
SET CONSOLE ON 
IF ANS = "2" THEN 
RELEASE ALL LIKE M*, ACCEPT, ANS, CHOICE,; 
CURRENTNO, BOF, INTRO, NODATE,; 
NOFIND, SYSDATE, TOF 
CLOSE DATABASES 
RETURN 
ELSE 
SET COLOR TO /W,. /W 
@ 24,0 SAY MESSAGE 
STORE 0 TO NOFIND 
STORE '000000' TO MOLDATE 
LOOP 
ENDIF ANS = "2" 
ELSE 
SET COLOR TO W/B, W/B 
@ 24,0 SAY SPACE(80) ` 
OPER EFECTIVE DATE 4 "MOLDATE + 0 does not exist for site " +; 
MSITE + ", try another " TO NODATE 
SET COLOR TO W+/R, W+/R 
@ 24,10 SAY NODATE 
DO DELAY 
SET COLOR TO /W, /W 
@ 24,0 SAY MESSAGE 
“STORE "000000" TO MOLDATE 


LOOP 
ENDIF NOFIND = 3 
PINEEE БЮ) = .T. 


250} ENDDO WHILE „МОТ. (MOLDATE >= LODATE .AND. MOLDATE <= HIDATE) 
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5 
252| STORE SPACE(10) + 'Enter a six digit feature number between ' « LOFNUM +; 
285 ' and ' « HIFNUM + ЅРАСЕ(11) ТО MESSAGE 


254| SET COLOR TO /W, /W 
255| 8 24,0 SAY MESSAGE 

256| STORE '999999' TO MFEAT 
257| STORE 0 TO NOFIND 


258 * 

2591 DO WHILE T. 

260 DO WHILE .NOT. (MFEAT >= LOFNUM .AND. MFEAT <= ПТЕМОМ) 
261 SET COLOR TO /BR, /BR 

262 STORE '010201' TO MFEAT 

263 @ 13,45 GET MFEAT PICT '999999' 

264 READ 

265 IF .NOT. (MFEAT »- LOFNUM .АМО. МЕЕАТ <= ДМ) ТНЕ 
266 SET COLOR TO W/B, W/B 

267 0 24.0 SAY SPACE(S0) 

268 SET COLOR TO W+/R, W+/R 

269 STORE ' Response must be between ' + LOFNUM +; 
270 ' and ' « HIFNUM « ' ' TO ERROR 

271 @ 24,17 SAY ERROR 

272 DO DELAY 

Duo SET COLOR TO /W, /W 

274 (d 24 0 SAY MESSAGE 

275 LOOP 

276 ELSE 

277 IF (MFEAT >= LOFNUM „АКО. МЕЕАТ <= HIFNUM) THEN 
2 71 USE DESCRIP INDEX DESCRIP 

279 GO TOP 

280 FIND &MFEAT ` 

281 ТЕ В т. THEN 

282 NOFIND = NOFIND + 1 

283 | ТЕ” МОЕТМО - 3 ТИНЫ 

284 SET COLOR ТО W+/B, W+/B 

285 Q 24,0 SAY SPACE(80) 

286 ?? FLASH + "W.SERNOFND/" 

297 SET CONSOLE OFF 

288 WAIT TO ANS 

289 SET CONSOLE ON 

2901 IF ANS - "2" THEN 

291 RELEASE ALL LIKE M*, ACCEPT, ANS, CHOICE,; 
292 CURRENINO, EOF, INTRO, NODATE,; 
293 NOFIND, SYSDATE, TOF 
294 CLOSE DATABASES 

295 RETURN 

296] : ELSE 

297 SET COLOR 1O /W, /W 

298 Q 24,0 SAY MESSAGE 

299 STORE O TO NOFIND 

300 STORE '999999' TO MFEAT 
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301 

302 
303 
304 
305 
306 
307 
308 
309 
510 
511 

312 
313 
314 
515 
316 
317 
518 
519 
320 
321 

522 
323 
324 
025 
326 
527 
528 
329 
330 
331 

B52 
333 
334 
S25 
336 
557 
338 
339 
340 
341 

342 
343 
344 
345 
346 
347 
348 
349 
390 
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LOOP 
ENDIF.ANS - "2" 
ELSE 
SET COLOR TO W/B, W/B 


@ 24,0 SAY SPACE(80) 
SET COLOR TO W+/R, W+/R 
STORE " No record exists for feature number “+; 
MFEAT + ", try again " TO ERROR 
@ 24,12 SAY ERROR 
DO DELAY 
SET COLOR TO /W, /W 
@ 24,0 SAY MESSAGE 
STORE '999999' TO MFEAT 
LOOP 
ENDIF МОЕТЬ ="3 
ENDIF POF() = T. 
ENDIF (MFEAT »- LOFNUM .AND. MFEAT <= HIFNUM) 
ENDIF .NOT. (MFEAT >= LOFNUM .AND. MFEAT <= HIFNUM) 
ENDDO WHILE „МОТ. (MFEAT >= LOFNUM .AND. MFEAT <= HIFNUM) 


STORE MOLDATE + MSITE + MFEAT TO MKEY 


USE SERIALNO INDEX SERNOPRJ, 
GO TOP 

FIND &MKEY 

I POP() ЛЕЕ 


SET COLOR TO W/B, W/B 
@ 24,0 SAY SPACE(80) 


SET COLOR TO W«/R, W«/R 

SHORE  EresEuare number ” - MEEAT + "Ü for site " + MSITE +; 
’ ов часе " + МОРБАТЕ +: 
" does not exist, try again '' TO ERROR 

@ 24,0 SAY ERROR 

DO DELAY 


SET COLOR TO W+/B, W+/B 
?? FLASH + 'W.SERNOFND/" 
SET CONSOLE OFF 
WAIT TO ANS 
SET CONSOLE ON 
IF ANS = "2" THEN 
RELEASE ALL LIKE M*, ACCEPT, ANS, CHOICE, CURRENTNO, EOF,; 
INTRO, NODATE, NOFIND, SYSDATE, TOF 
CLOSE DATABASES 
RETURN 
ELSE 
SET COLOR TO W/B, W/B 
@ 21,10 SAY SPACE(60) 
SET COLOR TO /W, /W 
@ 24,0 SAY MESSAGE 
STORE '999999' ТО МЕЕАТ 
LOOP 
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351 
352 
293 
354 
355 
356 
357 
358 
399 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
320 
33] 
377 
no 
374 
345 
376 
927 
378 
3:9 
380 
381 
282 
532 
384 
385 
386 
387 
388 
289 
390 
391 
392 
393 
394 
Bes 
396 
397 
398 
399 
400 | 


ENDIF ANS = 2” 
ELSE 
EXIT 
FNDTE БОРТ) Е. 
ENDO WHILE T 
* 


STORE " At beginning of records for site number " +; 
MSITE + “ " TO TOP 
STORE '" At end of records for site number " + MSITE + " " TO EOF 
SET COLOR TO W/B, W/B 
a 24,0 SAY SPACE(80) 
* 
STORE SPACE(16) + ‘Press "Page Down" key to terminate record update’ +; 
SPACE(16) TO MESSAGE 
STORE 1 TO INTRO 
ВОИН т. 
SET COLOR TO /W, W 
@ 24,0 SAY MESSAGE 


USING THE SERIAL NUMBER UPDATE FORMAT FILE TO PRODUCE THE SCREEN 
DISPLAY; IF NOT AT THE ENS OF Pike. 


* X ж + 


STORE SERIALNO TO MSERIAL 
STORE FEATURENO TO MFEAT 


ж ж 


INFORM THE USER OF HOW TO TERMINATE THE UPDATE OF A RECORD 


IF INTRO = 1 THEN 
STORE 0 TO INTRO 
?? FLASH + ''W.SERNOUPD/" 
SET CONSOLE OFF 
WAIT TO ANS 
SET CONSOLE ON 
ENDIF 


SELECT 2 

USE DESCRIP INDEX DESCRIP 

FIND &MFEAT 

STORE CLIN TO MCLIN 

STORE DESCIPT TO MDESCIPT 

SELECT 1 

SET COLOR TO R+/B, R+/B 

@ 6,45 SAY RECNO() PICT "9999" 
SET COLOR TO /BR, /BR 

@ 9,20 SAY SITENO PICT ''99" 

@ 9,68 SAY EFFDATE PICT "999999" 
a 12,45 SAY MCLIN PICT "9999" 

8 13,45 5ДҮ МЕЕАТ РІСІ "999999" 

@ 14,45 5АҮ МБЕССІРТ РІСІ "іпігттттттгетгггтир титан 
8 15,45 SAY TOTOIY РТСТ "999" 
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JC Xe 





SET COLOR TO W+/BG, W+/BG 

@ 17,45 SAY QTY PICT "999" 

Q8 17,52 SAY TOTQTY РТСТ "999" 
SET COLOR TO /BR, /BR 


READ 
SET COLOR TO W/B, W/B 
@ 24,0 SAY SPACE(80) 


IF .NOT. (SERIALNO - MSERIAL) THEN 
ASK THE USER IF HE/SHE DESIRES TO ACCEPT THE CHANGES 


SET COLOR TO W+/B, W+/B 

@ 21,12 SAY "Do you want to accept the change? (Yes or No):" 
SET COLOR TO R+/B, R+/B 

@ 21,48 У 

du] 55 SAY "N" 

STORE "N" TO ACCEPT 

312106] GET ACCEPT РТС"! 

READ 


ENSURE THAT THE USER'S RESPONSE IS EITHER "Y" OR "N" 


Powis NOP. (ACCEPT = "N"! ОВ. ACCEPT = ү“) 
IF .NOT. (ACCEPT = "N" „ОВ. ACCEPT = "Y") THEN 
SET COLOR TO W+/R, W+/R 
@ 24,24 SAY " Response must be either N or Y " 
DO DELAY 
STORE "N" TO ACCEPT 
ENDIF | 
SET COLOR TO R+/B, R+/B 
@ 21,61 GET ACCEPT Picr “!" 
READ 
ENDDO 
SET COLOR TO W/B, W/B 
@ 21,10 SAY SPACE(55) 


STORE THE CHANGED EDIT FIELD FROM THE WORK AREA INTO THE 
DATABASE VARIABLE 


IF ACCEPT = "Y" THEN 

REPLACE SERIALNO WITH MSERIAL 
ELSE 

SET COLOR TO /BR, /BR 


ENDIF ACCEPT = "y" 
ENDIF .NOT. (SERIALNO = MSERIAL) 


CEP COLOR TO R+/B, R+/B 


BO 


45] 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
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* 


* 


* 


497 | 


498 
499 
500 


STORE "№ TO CHOICE 
a 22,68 GET CHOICE PICT "i!" 
READ 


ENSURE THAT THE USER'S RESPONSE IS EITHER "N", "P" OR "x" 


DO WHILE „МОТ. (CHOICE = "N" ,OR. CHOICE = "Р ОҚ CHOME И | 
ТЕ .NOT. (CHOICE = "N" ,OR. CHOICE - "P" .OR. CHOICE - "X") THEN 
SET COLOR TO W+/R, W+/R i 
@ 24,23 SAY " Response must be either N, P or X " | 
DO DELAY | 
STORE "N" TO CHOICE 
ENDIF 
SET COLOR TO R+/B, R+/B 
@ 22,68 GET CHOICE PICI 1 
READ 
ENDDO 


SKIP TO THE NEXT RECORD TO BE REVIEWED 


IF CHOICE = "М" THEN | 
IF (MSITE »- LOSITE .AND. MSITE «- HISITE) THEN 
SKIP 
IF EOF() = .T. THEN 
SKIP - 1 ` 
SET COLOR TO W+/R, W+/R 
@ 24,21 SAY EOF 


PO DELAY 
ELSE 
Ip NOT. (SEFENO = MSITE) НЕГ! 
SKIP - 1 


SET COLOR TO W«/R, W«R 
@ 24,21 SAY EOF 
DO DELAY 
ENDIF 
ENDIF EOF() - .Т. 
ENDIF (MSITE »- LOSITE .AND. MSITE <= HISITE) 
ENDIF CHOICE = "М" 


SKIP TO THE PREVIOUS RECORD 


IF CHOICE = "P" THEN 
STORE RECNO() TO CURRENTNO 
IF (MSITE >= LOSITE AND. MSITE = НЕСЕТЕ ИТЕ І 
SKIP - 1] 
IF BORISS T рът 
GOTO CURRENTNO 
SET COLOR TO W«/R, W«/R 
Q 24,16 SAY TOF 
DO DELAY 
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501 ELSE 
502 IF .NOT. (SITENO = MSITE) THEN 

503 SKIP 

504 SET COLOR TO W+/R, W+/R 

505 @ 24,16 SAY TOF 

506 DO DELAY 

507 ENDIF 

508 ENDIF BOF() = .T. 

509 ENDIF (MSITE >= LOSITE .AND. MSITE <= HISITE) 
510 ENDIF CHOICE = "р" 

511] * USER HAS DECIDED TO EXIT THE REVIEW 

512| * i 

513 IF CHOICE = "x" 

514 EXIT 

515 ENDIF 

516| ENDDO WHILE .T. 

517| * 

518} * RETURN TO CALLING PROGRAM. 

519| * 

520! RELEASE ALL LIKE M*, ACCEPT, ANS, CHOICE, CURRENTNO, EOF, INTRO,; 
521 NODATE, NOFIND, SYSDATE, TOF 

522| CLOSE DATABASES 


523| RETURN 
524] жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
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* PROCEDURE SITERPTS.PRG 
* 
* AUTHORS : LCDR EDWARD J. CASE, SC, USN 
| LCDR WINSTON Ho BUCKLEY, SG mean 
t LCDR ROBERT F. BRADO, USN 
* LCDR ROBERT L. BEARD Dit ese). Us 
* 
+ PURPOSE : PROVIDE THE USER A SELECTION OF SITE ЕЕУЕБ КЕРУ ИКЕ 
* 
C INPUT BIEES : NONE. 
* 
Í OUTPUT FILES : NONE. 
* CALLED BY : REPORCMD. PRG 
* 
* MODULES CALLED ;: EQPSTRPT.PRG, MNLSTRPT.PRG, SNOSTRPT.PRG 
* 
* LOCAL VARIABLES: SELEKT 
* 
* DATE LAST TIME MODIFIED ==========> 18 DECEMBER 190k LL 
і 


* 


DISPLAY THE PROCESS MENU TO THE USER AND WAIT FOR THE SELECTION. 


STORE "1" TO SITERPTS 
DO WHILE SITERPTS « "4" 


SET COLOR TO W/B, W/B, B 
CLEAR 

2? FLASH + "W.SITERPT'S/" 
SET CONSOLE OFF 

WAIT TO SITERPTS 

SET CONSOLE ON 


PROCESS ROUTINE BASED ON THE USER'S SELECTION. 
DO CASE 
CALL THE EQUIPMENT SITE LEVEL REPORT. 
CASE SITERPIS = "1" 
DO EQPSTRPT 
CALL THE MANUAL SITE LEVEL REPORT. 
CASE SITERPTS - "2" 
DO MNLSTRPT 
CALL THE SERIAL NUMBER SITE LEVEL REPORT. 
CASE SITERPTS - "3" 
DO SNOSTRPT 


RETURN TO THE SPLICE REPORTING LEVEL MENU. 
CASE SITERPTS - "4" 


400 


APPENDIX B: MAINTENANCE MANUAL Page 264 


Page 2 SITERPTS.PRG Program Listing 
5 * 
52 ENDCASE 
Do * 
54| ЕМОБО (WHILE SITERPTS = ''4") 
ES * 
56| * RETURN TO THE CALLING PROGRAM 
SAM * 
58| RETURN 


59 жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
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PROCEDURE SNODTRPT. PRG 
AUTHORS > LCDR EDWARD J. CASE, SC, USN 
LCDR WINSTON H. BUCKLEY, SC, USN 
LCDR ROBERT F. BRADO, USN 
LCDR ROBERT L. BEARD III, SC, USN 
PURPOSE : PROVIDE THE USER A SPLICE SERIAL NUMBER 
EFFECTIVE DELIVERY ORDER LEVER REP ORI 


INPUT FILES : SERIALNO.DBF, SERNODAT.NDX, DESCRIP.DBF, 
DESCRIP.NDX, EQUIP.DBF, EQUIPSIT.NDX 


CALLED BY : DATERPTS.PRG 

MODULES CALLED : NONE. 

GLOBAL VARIABLE: HIDATE, HISITE, LODATE, LOSITE 

LOCAL VARIABLES: ACCEPT, CHOICE, COLCNT, ERROR, LINECT, MDAY, MKEY, 
MMONTH, MNEWDATE, MOLDATE, MSITE, MYEAR, PAGENO, 
SYSDATE, TODAY, TODATE 

DATE LAST TIME MODIFIED ==========> 27 DECEMBER 1985 <========== 

CASE SELECTION = 3 SERIAL NUMBER EFFECTIVE DELIVERY ORDER LEVEL REPORT 

CALL THE SERIAL NUMBER DATABASE INDEXED ON SITE NUMBER. DISPLAY 

THE EFFECTIVE DELIVERY ORDER DATES FOR THE USER TO SELECT FROM. 

CALL SERIAL NUMBER DATABASE INDEXED ON EFFECTIVE DELIVERY ORDER DATE 


AND SITE NUMBER. COPY TO TEMPONE, INDEXED ON FEATURE NUMBER. RELATE 
ТО THE DESCRIPTION FrLE AND PRODUCE REPORT. 


x X X X X % X X X X X X X X X X X X X X #5 X X X X X X X X X с 


SET ESCAPE OFF 

SET TALK OFF 

SET COLOR TO W«/B, W«/B, B 

CLEAR 

USE SERIALNO 

GO TOP 

TES POR) т 
SET COLOR TO W+/R, W+/R 
@ 13,22 SAY " The SERIAL NUMBER Database is EMPTY! " 
DO DELAY 
RETURN 

ENDIF 

?? FLASH + "S.REPORTS.SCR/' 


| а 24,0 SAY SPACE(80) 


SET COLOR TO R«/ , R«/ 
@ 2,26 SAY '' SITE SERIAL NUMBER REPORT " 
SET COLOR TO W+/BR, W+/BR 
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13,15 SAY "Enter site number for which the report is desired:" 


ENSURE THAT TEMPORARY DATABASE AND INDEX DO NOT EXIST, 
IF SO ERASE THEM 


X х хх жш 


SET CONSOLE OFF 
ERASE TEMPONE.DBF 
ERASE TEMPONE .NDX 
SET CONSOLE ON 
USE SERIALNO INDEX SERNOSIT 
* 
BO WHILE .Т. 
SET COLOR ТО /BR, /BR 
SIRUNESBEOSITE TO MSITE 
Q 13,66 GET MSITE PICT '99' 
READ 
HOMES T S(MSITE ^- EOSITE .AND. MSITE «2 HISITE) THEN 
SET COLOR TO W+/R, W+/R 
STORE ' Response must be between ' + LOSITE +; 


' and ' + HISITE + ' ' TO ERROR 
@ 24,22 SAY ERROR 
DO DELAY 
LOOP 
ELSE 
GO TOP 
FIND &MSITE 
IL SPERM T. THEN 


STORE " No serial numbers exist for site " + МЅІТЕ +; 
", try another site " TO MESSAGE 
SET COLOR TO W+/R, W+/R 
@ 24,13 SAY MESSAGE 
DO DELAY 
LOOP 
ELSE 
EXIT 
BIIDRESHOP(C) = .T. 
БІЛЕ NOL. (MSITE >= LOSITE .AND. MSITE <= HISITE) 
ENDDO WHILE .T. 
* 
SET COLOR TO W+/BR, W+/BR 
@ 13,15 SAY SPACE(60) 
* 


SET COLOR TO W+/B, W+/B 

@ 05,09 SAY "The following Delivery Order Effective Dates exist for Site" 
HE05.,69 SAY MSITE 

SET COLOR TO /BR, /BR 

@ 13,05 SAY SPACE(70) 

EUSRE | TO LINECT 

BIORE 1.00 TO COLCNT 

STORE "000000" ТО МОШОАТЕ 
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101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
(Н 
113 
114 
Де 
116 
117 


ІШТЕ 


119 
120 
121 

122 
23 
124 
125 
126 
127 
128 
129 
130 
131 

152 
185 
134 
155 
136 
bo 
138 
139 
140 
141 

142 
143 
144 
145 
146 
147 
148 
149 
150 
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ж 


DO WHILE SITENO = MSITE 
IF (COLCNT - (COLCNT * (COLCNT/3)) s 0700) THEN 
@LINECT+6,57 SAY EFFDATE 
ELSE 
IF (COLCNT - (COBCNT * (COLCNT/2)) 990700) € DIEM 
@LINECT+6,38 SAY EFFDATE 
ELSE 
@LINECT+6,19 SAY EFFDATE 
ENDIF (QOLCNT - (COLCNT * (COLCNT/2)) = 0.00) 


ENDIF (COLCNT - (COLCNT * (COLCNT/3)) = 0.00) 
IF (COBECNT - (COBECNT * (OOPLCNT/3)) = 0700) the 
BINBECI = ] в ЕСТ 
COLCNT - 1.00 
ELSE 
COLCNT = COLCNT + 1.00 


ENDIF (COLCNT = (GOLENT * (CLNT Зу - 0 О ы 
STORE EFFDATE ТО MOLDATE 


DO WHILE ((EFFDATE = MOLDATE) .AND. .МОТ. EOF()) 
SKIP+2 
ENDDO 


ТЕ POF) THEN 
EXIT 
ELSE 
SRIP 
ENDIF BOEC) = 1T. 
ENDDO WHILE SITENO = MSITE 
ж : 
SPORE DIOCCDATEC)I) STO SYSBATIE 
STORE SUBSTR(SYSDATE,7,2) + SUBSTR(SYSDATE,1,2) +; 
SUBSTR(SYSDATE,4,2) TO MDATE 
STORE SPACE(17) + ‘Input Effective Date (Range ' + LODATE +; 
' to ' + HIDATE + ')' + SPACE(17) TO MESSAGE 
SET COLOR TO /W, /W 
@ 24,0 SAY MESSAGE 
SET COLOR TO W+/B, W+/B 
@ 3,29 SAY "EFFECTIVE DATE: " 
* 


USE SERIALNO INDEX SERNODAT 
STORE "000000" TO MOLDATE 
* 


DO WHILE .NOT. (MOLDATE >= LODATE .AND. MOLDATE <= HIDATE) 
STORE MDATE TO MOLDATE 
SET COLOR ТО В+/В, В+/В 
@ 3,45 СЕТ МОГОАТЕ РІСТ "999999" 
READ 
DO WHILE .T. 
IF .NOT. (SUBSTR(MOLDATE,1,2) » "83" .AND.; 
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151 

152 
153 
154 
155 
156 
197 
158 
159 
160 
161 

162 
163 
164 
165 
166 
167 
168 
169 
170 
171 

| 
173 
174 
175 
176 
177 
178 
179 
180 
181 

182 
183 
184 
185 
186 
187 
188 
189 
190 
191 

192 
193 
194 
195 
196 
97 
198 
199 
200 
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SUBSTR (MOLDATE,1,2) <= "99") THEN 

SET COLOR TO W/B, W/B 

a24 0 SAT SPACE(80) 

SET COLOR TO W+/R, W+/R 

@ 24,16 SAY " Year portion of date must be between 84 and 99 

DO DELAY 

SET COLOR TO /W, /W 

@ 24,0 SAY MESSAGE 

STORE SUBSTR(MDATE,1,2) TO MYEAR 

SET COLOR TO R+/B, R+/B 

@ 3,45 GET MYEAR PICT "99" 

READ 

STORE MYEAR + SUBSTR(MOLDATE,3,4) TO MOLDATE 
EISE 

EXIT 
ENDIF 


ENDDO WHILE .T. 


DPO WHILE T. 


IF .NOT. (SUBSTR(MOLDATE,3,2) »- "O1" .AND.; 
SUBSTR(MOLDATE,3,2) <= '"12") THEN 
SET COLOR TO W/B, W/B ү 
а 24,0 SAY SPACE(80) 
SET COLOR TO W+/R, W+/R 
@ 24,16 SAY " Month portion of date must be Коро Ol and 12 " 
DO DELAY 
SET COLOR TO /W, /W 
@ 24,0 SAY MESSAGE | 
STORE SUBSTR(MDATE,3,2) TO MMONTH 
SET COLOR TO R+/B, R+/B 
а 3,47 СЕТ ММОМТН РІСІ "99" 


READ 
STORE SUBSTR(MOLDATE,1,2) + MMONTH +; 
SUBSTR(MOLDATE,5,2) TO MOLDATE 
ELSE 
EXIT 
ENDIF 
ENDDO WHILE .T. 
ж 
DO WHILE .T. 
IF ((SUBSTR(MOLDATE,3,2) = "04" „ОВ. SUBSTR(MOLDATE,3,2) = "06" .OR.; 
SUBSTR(MOLDATE,3,2) = "09" .OR. SUBSTR(MOLDATE,3,2) = '"11") .AND. .NOT.; 


(SUBSTR(MOLDATE,5,2) »- "01" .AND. SUBSTR(MOLDATE,5,2) <= "30'')) THEN 
SET COLOR TO W/B, W/B 

@ 24,0 SAY SPACE(80) 

SET COLOR TO W+/R, W+/R 

@ 24,16 SAY " Day portion of date must be between 01 and 30 " 

DO DELAY 

SET COLOR TO /w, /W 

@ 24,0 SAY MESSAGE 
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201 

202 
203 
204 
205 
206 
207 
208 
209 
2210, 
211 

212 
215 
214 
25 
216 
кан, 
218 
219 
220 
224 

222 
220 
224 
225 
226 
127 
228 
229 
230 
231 

232 
235 
234 
235 
236 
257 
238 
239 
240 
241 

242 
243 
244 
245 
246 
247 
248 
249 
250 
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STORE SUBSTR(MDATE,5,2) TO MDAY 
SET COLOR TO R«/B, R«B 
@ 3,49 GET MDAY PIcT "99" 
READ 
STORE SUBSTR(MOLDATE,1,4) + MDAY TO MOLDATE 
LOOP 

ELSE 

* 
IF (SUBSTR(MOLDATE,3,2) = "02" .AND. .NOT.; 


(SUBSTR(MOLDATE,5,2) >= "01" .AND.; 


SUBSTR(MOLDATE,5,2) <= "28")) THEN 

SET COLOR TO W/B, W/B 

@ 24,0 SAY SPACE(80) 

SET COLOR TO W+/R, W+/R 

@ 24,16 SAY " Day portion of date must be between 01 and 28 " 
DO DELAY 

SEP COLOR TO /W, /W 

@ 24,0 SAY MESSAGE 

STORE SUBSTR(MDATE,5,2) TO MDAY 

SET COLOR TO R+/B, R+B 

@ 3,49 GET MDAY PICT "99" 

READ : 

STORE SUBSTR(MOLDATE,1,4) + MDAY TO MOLDATE 

LOOP . | 


ELSE 


IF .NOT. (SUBSTR(MOLDATE,5,2) »- "O1" .AND.; 


SUBSTR(MOLDATE, 5,2) <= УЗ ТИИ 
SET COLOR TO W/B, W/B 
8 24,0 SAY SPACE(80) 
SET COLOR TO W+/R, W+/R 
@ 24,16 SAY " Day portion of date must be between 01 and 31 " 
D> DELAY 
SET COLOR TO /w, /W 
@ 24,0 SAY MESSAGE 
STORE SUBSTR(MDATE,5,2) TO MDAY 
SET COLOR TO R+/B, R+B 
@ 3,49 GET MDAY PICT "99" 
READ 
STORE SUBSTR(MOLDATE,1,4) + MDAY TO MOLDATE 
LOOP 


ELSE 


EXIT 


ENDIF 

ENDIF | 
ENDIF 
ENDDO ПЕ ВЕЕ 


СО ТОР 


STORE MSITE « MOLDATE TO MKEY 
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291 
252 
258 
254 
235 
256 
257 
258 


260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
210 
271 
2/2 
213 
274 
275 
216 
> 77 
278 
29 
280 
281 
282 
283 
284 
285 
286 
287 
288 
209 
290 
291 
290 
293 
294 
295 
296 


297 


296 
299 
300 
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FIND &MKEY 
IR EOF) =. THEN 
SET COLOR TO W/B, W/B 
@ 24,0 SAY SPACE(80) 
STORE '' EFFECTIVE DATE " + MOLDATE + '' does not exist for site " +; 
MSITE + ", try another " ТО МОРАТЕ 
SET COLOR TO W+/R, W+/R 
@ 24,10 SAY NODATE 
DO DELAY 
SET COLOR TO /W, /W 
@ 24,0 SAY MESSAGE 
STORE "000000" TO MOLDATE 
LOOP 
ELSE 
EXIT 
ENDIF BOF() = .Т. 
ENDDO WHILE .NOT. (MOLDATE >= LODATE .AND. MOLDATE <= HIDATE) 
* 
SET COLOR TO W+/B, W+/B 
@ 05,05 SAY SPACE(70) 
а 24,0 SAY SPACE(S80) 
* 
* 
* 


CLEAR LISTING OF EFFECTIVE DATES FROM SCREEN 


SET COLOR TO /BR, /BR 
07,2 SAY SPACE(76) 
08,2 SAY SPACE(76) 
09,2 SAY SPACE(76) 
10,2 SAY SPACE(76) 
11,2 SAY SPACE(76) 
12,2 SAY SPACE(76) 
13,2 SAY SPACE(76) 
14,2 SAY SPACE(76) 
15,2 SAY SPACE(76) 
16,2 SAY SPACE(76) 
17,2 SAY SPACE(76) 
18,2 SAY SPACE(76) 
19,2 SAY SPACE(76) 
20,2 SAY SPACE(76) 
21,2 SAY SPACE(76) 


(Л жаса со ао (ао ао (о (со сс (о ао (со о о 


FL COLOR TO R+/ , Е+/ 
8 13,18 SAY " CREATING TEMPORARY DATABASE AND INDEX FILE " 
* 


COPY TO TEMPONE FOR SITENO = '"&MSITE'" .AND. EFFDATE = "&MOLDATE'" 
SELECT 1 

USE TEMPONE 

INDEX ON FEATURENO TO TEMPONE 

SELECT 2 

USE DESCRIP INDEX DESCRIP 
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301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
214 
за 
315 
314 
215 
316 
319 
318 
215 
320 
321 
222 
323 
324 
325 
326 
321 
328 
329 
330 
331 
SoZ 
222 
334 
00 
336 
57 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
390 
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SELECT TEMPONE 
SET RELATION TO FEATURENO INTO DESCRIP 


GO TOP 
ж 


CREATE THE SPLICE EQUIPMENT PROJECT REPORT AND CHECKOTIBEOUHESEBPODB 


ж 
ж IS TO BE PRINTED OR DISPLAYED ONTLHE SCREENS 
* 


SET COLOR TO W+/BR, W+/BR 

@ 13,15 SAY SPACE(60) 

@ 13,16 SAY " Do you want a printed report? (Yes or No): 
SET COLOR TO /BR, /BR 

ads do SAVE YT 

ПОЕТЕСА я 

STORE -N TO ACCEPT 

в. 1362 CET ACCEPT IPIC IS 

READ 

ж 


* ENSURE THAT THE USER'S RESPONSE IS EITHER "У" ОВ "М" 
ж 
DO WHILE -NOT (ACCEPT = N- OR: ACCEPT = y7) 
IF .NOT. (ACCEPT - "N" .OR. ACCEPT - "Y") THEN 
SET COLOR TO W+/R, W+/R 
Q 24,24 SAY " Response must be either N or Y " 
DO DELAY 
STORE "N'" TO ACCEPT 
ENDIF .NOT. (ACCEPT = "№" .OR. ACCEPT = "У") 
SET COLOR TO /BR, /BR 
@ 13,62 СЕТ АССЕРТ РСТ "!" 
ВЕАР 
ENDDO WHILE .NOT. (ACCEPT - "М" .ОВ. ACCEPT = "У") 
ж 


SET COLOR TO /BR, /BR 
@ 13,15 SAY SPACE(55) 
* 
IF ACCEPT = "Y" THEN 
?? FLASH « 'W.PRINTER/' 
SET CONSOLE OFF 
WAIT TO CHOICE 
SET CONSOLE ON 
SET COLOR TO W/B, W/B 
@ 22,10 SAY SPACE(65) 
STORE DIOC(DATE()) TO TODAY 
STORE SUBSTR(TODAY,4,2) + " " + СМОМТН(ВАТЕ( }) о 
SUBSTR(TODAY,7,2) TO TODATE 
STORE 0 TO PAGENO 
STORE 61 TO LINECT 
SET OLOR АВЕ, В 
SET DEVICE TO PRINT 


DO WHILE „МОТ. ЕОЕ() 


408 


t; 


351 

352 
353 
354 
355 
356 
357 
358 
359 
360 
361 

362 
363 
364 
365 
366 
367 
368 
369 
370 
371 

372 
373 
374 
375 
376 
377 
378 
379 
380 
381 

382 
383 
384 
385 
386 
387 
388 
389 
390 
391 

392 
393 
394 
395 
396 
397 


399 | 


400 
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DO WHILE-(LINECT «- 60 .AND. .NOT. EOF()) 
LINECT,3 SAY SITENO PIcT "99" 
LINECT,7 SAY B->CLIN PIcT "9999" 
LINECT,15 SAY FEATURENO PICT "999999" 


LINECT,52 SAY EFFDATE PICT ''999999"' 
LINECT,60 SAY TOTOTY PICT "999" 
LINECT,65 SAY QTY PICT "999" 
LINECT,70 SAY SERIALNO PICT "!:!:11:11:1"' 
LINECT = LINECT + 1 
SKIP 
ENDDO WHILE (LINECT <= 60 .AND. .NOT. EOF()) 


(о ао ао (CD (CD AD (CD 


DIES ЕСЕ() - THEN 
IF PAGENO » 1 THEN 
@ 62,37 SAY "Page " « STR(PAGENO, 2,0) 
ENDIF PAGENO > 1 
ЕЛЕСІ 


SET DEVICE TO SCREEN 
8 13,25 SAY " FINISHED PRINTING THE REPORT " 
DO DELAY 
EXIT 
ELSE 


SET DEVICE TO SCREEN 


Page 272 


ЕО Е рЕБЕТРІ PICT итте тетте" 


ее ә ә е o o 9 o ә 


@ 13,27 SAY " Printing Page Number " « STR(PAGENO « 1,2,0) « " " 


SET DEVICE IO PRINT 
ENDIF FOF() - .Т. 


IF (LINECT » 60 .AND. PAGENO » 1) THEN 

8а 62,37 SAY "Page " « STR(PAGENO, 2,0) 
ENDIF (LINECT » 60 .AND. PAGENO » 1) 
2,26 SAY " SITE SERIAL NUMBER REPORT "' 
B29 SAY EFFECTIVE DATE: " 
3,45 SAY MOLDATE 
4,60 SAY TODATE 
6,52 SAY "EFFECT TOT COMPT SERIAL" 


ао ао ао ао ао а ао о (др 


ща 
,60 SAY "QTY QTY NUMBER" 
„2 
rol 


SAY en ee ee ee ee = == = === =" 
PAGENO = PAGENO + 1 
STORE 10 TO ГІМЕСІ 


ENDDO WHILE .NOT. BOF() 
ELSE 
SET COLOR TO GR+/B, GR+/B 
@ 4,52 SAY "EFFECT TOT COMPT SERIAL" 
@ 5,2 SAY "SITE CLIN  FEATURE# DESCRIPTION 
& 5,60 SAY "OIY QTY NUMBER" 
SET COLOR TO /BR, /BR 
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SAY "SITE CLIN  FEATURE# DESCRIPTION 


DATE 


DATE" 


401 

402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 

422 
423 
424 
425 
426 
427 
428 
429 
430 
431 

432 
433 
434 
435 
436 
437 
438 
439 
440 
441 

442 
443 
444 
445 
446 


4441 * 


448 
449 
450 
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STORE O TO Ъ ШЕСТ 


DO WHILE .NOT. EOF() 


DO WHILE LINECT « 15 
LINECT+7,3 SAY SITENO РІСІ "99" 
LINECT+7,7 SAY В-›СІМ РІСТ "9999" 
LINECT+7,15 SAY FEATURENO PICT "999999" 
LINECT+7,24 5АҮ В->ПЕЗСІРТ РІСТ "її иет e a e 
LINECT+7 ,52 SAY EFFDATE PICT "999999" 
LINECT+7 ,60 SAY ТОТОТУ РТСТ "999" 
LINECT+7,65 SAY OTY PICT "999" 
LINECT+7,70 SAY SERIALNO PICT “Saimin 
LINECT = LINECT + 1 
SKIP 
IF EOP() = .T. THEN 
SET COLOR TO W+/R, W+/R 
@ 24,18 SAY " End of File reached, Press any key to EXIT " 
SET CONSOLE OFF 
WAIT TO ACCEPT 
SET CONSOLE ON ` 
Ех ЕЁ 
ENDIF EOF() - .T. 
ENDDO WHILE LINECT « 15 


(о (о (CD (CD (о (о (о (о 


ТЕ ВЕЦ 5 t НЕН 

ЕХТТ 
ENDIF EOF() = .T. 
SET COLOR TO R+/B, R+/B 
STORE "C. TO CHOICE 
@ 22.57 CET CHOICE РСТ 1: 
READ 


ENSURE THAT THE USER'S RESPONSE IS EITHER "Y" OR "N" 


DO WHILE МОТ, (CHOICE = "С" OR СВОЕ d 
ТЕ NOT, (CHOICE = “С^ „ОВ. CHOICE = о 
SET COLOR TO W+/R, W+/R 
@ 24,24 SAY " Response must be either C or X " 
DO DELAY 
STORE "C" TO CHOICE 
ENDIF .NOT. (CHOICE = "C" .OR. CHOICE = "x") 
SET COLOR TO R+/B, R+/B 
d 22 57 GET CHOICE PICI 21 
READ 
ENDDO WHILE .NOT. (CHOICE = "С" „ОК. СНОТСЕ - "Х") 


) 
THEN 


DETERMINE IF THE USER WANTS TO QUIT OR CONTINUE 


IB CHOICE 2 c 
SET COLOR TO /BR, /ВЕ 
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* ERASE ALL TEMPORARY FILES CREATED DURING REPORT GENERATION 


ERIEBASECABD LIKE M*, ACCEPT, CHOICE, COLCNT, LINECT, PAGENO,; 


Page 10 
451 @ 07,2 SAY SPACE(76) 
452 @ 08,2 SAY SPACE(76) 
453 @ 09,2 SAY SPACE(76) 
454 a 1O72 SAY SPACE(76) 
455 Q 11,2 SAY SPACE(76) 
456 Q 12,2 SAY SPACE(76) 
457 ЧР) 
458 8 14,2 SAY $РАСЕ( 76) 
459 Gals; ceony БРАСЕ( 70) 
460 @ 16,2 SAY SPACE( 76) 
461 ВЯ, ЗУ ЭРАСЕ( 76) 
462 @ 18,2 SAY SPACE(76) 
463 Q 19,2 SAY SPACE(76) 
464 8920,2 SAY SPACE(76) 
465 @ 21,2 SAY SPACE(76) 
466 STORIESOSIOSDINECT 
467 ELSE 
468 EXIT 
469 ENDIF CHOICE + "С" 
470| * 
471 ENDDO WHILE .NOT. EOF() 
22d * i 
473| ENDIF ACCEPT = "Y" 
474| * 
475 
476| * 
477| CLOSE DATABASES 
ДИВИ БЕТ CONSOLE OFF 
479| ERASE TEMPONE.DBF 
480| ERASE TEMPONE.NDX 
481| SET CONSOLE ON 
462} SET PRINT OFF 
485] * 
484| * RETURN TO CALLING PROGRAM 
485| * 
486 
487 SYSDATE, TODAY, TODATE 
488| RETURN 
489 
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PROCEDURE SNOPJRPT. PRG 

AUTHORS : LCDR EDWARD J. CASE, SC, USN 
LCDR WINSTON H. BUCKLEY, SC, USN 
LCDR ROBERT F. BRADO, USN 
LCDR ROBERT L. BEARD III, SC, USN 


PURPOSE : PROVIDE THE USER A SPLICE SERIAL NUMBER 
PROJECT LEVEL REPORT. 


INPUT FILES : SERIALNO.DBF, SERNOPRJ.NDX, DESCRIP.DBF, DESCRIP.NDX 
OUTPUT FILES  : NONE. 

CALLED BY : PROJRPTS.PRG 

MODULES CALLED : DELAY.PRG 

LOCAL VARIABLES: ACCEPT, CHOICE, LINECT, PAGENO, TODAY, TODATE 

DATE LAST TIME MODIFIED --2--2-----» 27 DECEMBER 1985 MR 

CASE SELECTION = 2. SERIAL NUMBER PROJECT LEVEL REPORT 


CALL SERIAL NUMBER DATABASE INDEXED ON EFFECTIVE DATE, SITE NUMBER, 
AND FEATURE NUMBER. RELATE TO DESCRIP FILE ON FEATURENO. 


така Xx 


SET ESCAPE OFF 
SET TALK OFF 
SET COLOR TO W+/B, W+/B, B 


CLEAR 

USE SERIALNO 

GO TOP 

ТЕ BOR c= +. ie Пи 


SET COLOR TO W+/R, W+/R 
@ 13,22 SAY " The SERIAL NUMBER Database is EMPTY! " 
DO DELAY 
RETURN 
ENDIF 
?? FLASH + "S.REPORTS.SCR/" 
@ 24,0 SAY SPACE(80) 
SET COLOR TO R TIR 
@ 2,18 SAY " EQUIPMENT SERIAL NUMBER PROJECT LEVEL REPORT " 
SELECT 
USE SERIALNO INDEX SERNOPRJ.NDX 
SELECT 2. 
USE DESCRIP INDEX DESCRIP 
SELECT SERIALNO 
SET RELATION TO FEATURENO INTO DESCRIP 
GO TOP 


412 
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fs) lo BE PRINTED OR DISPLAYED ON THE SGREEN. 


хх x x 


SET COLOR TO W+/BR, W+/BR 

@ 13,16 SAY " Do you want a printed report? (Yes or No): 
SET COLOR TO /BR, /BR 

Q 13,49 SAY "y" 

8 13,56 SAY "М" 

STORE "N" TO ACCEPT 

8] 62 СЕТ АССЕРТ РІСІ "1" 

READ 

ж 


ж ENSURE THAT THE USER'S RESPONSE IS EITHER "У" ОВ "№" 
* 
DO WHILE .NOT. (ACCEPT = "М" .OR. ACCEPT = "Y") 
Pee Or. (ACCEPT = N“ OR. ACCEPT = "Ү") THEN 
SET COLOR TO W+/R, W+/R 
@ 24,24 SAY " Response must be either N or Y " 
DO DELAY 
STORE "N" TO ACCEPT 
ENDIF 
SET COLOR TO /BR, /BR 
а 13,62 СЕТ АССЕРТ РІСТ "!" 
READ ` 
ENDDO 
* 
SET COLOR TO /BR, /BR 
@ 13,15 SAY SPACE(55) 
ж 


IF ACCEPT = "Y" THEN 
2? FLASH + "W.PRINTER/" 
SET CONSOLE OFF 
WAIT TO CHOICE 
SET CONSOLE ON 
SET COLOR TO W/B, W/B 
@ 22,10 SAY SPACE(65) 
STORE 0 TO PAGENO 
STORE 61 TO LINECT 
STORE DTOC(DATE()) TO TODAY 
ENSE SUBSTR(TODAY,4,2) « " " 4 CMONTH(DATE()) + " 19" 
SUBSTR(TODAY,7,2) TO TODATE 
put COLOR TO R+/ , R+/ 
SET DEVICE TO PRINT 


DO WHILE .NOT. FOF() 
DO WHILE (LINECT <= 60 .AND. .NOT. EOF()) 
@ LINECT,3 SAY SITENO 
@ LINECT,7 SAY DESCRIP->CLIN 
@ LINECT,15 SAY FEATURENO 


413 
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101 @ LINECT,24 SAY DESCRIP->DESCIPT 
102 @ LINECT,52 SAY EFFDATE 
103 @ LINECT,60 SAY TOTOTY 
104 8 КІМЕСІ 65° sa ely 
105 @ LINECT,70 SAY SERIALNO 
106 LINECT = LINECT + 1 
107 SKIP 
108 ENDDO WHILE 
1091 * 
110 IF EOF() = .T. THEN 
111 IF PAGENO > 1 THEN 
112 @ 62,37 SAY "Page " + STR(PAGENO,2,0) 
13 ENDIF 
114 EJECT 
115 SET DEVICE TO SCREEN 
116 @ 13,25 SAY " FINISHED PRINTING THE REPORT " 
117 DO DELAY 
118 EXIT 
119 ELSE 
120 SET DEVICE TO SCREEN 
121 @ 13,27 SAY " Printing Page Number " + STR(PAGENO + 1,2,0) +" " 
122 SET DEVICE ТО РКТУТ 
123 ENDIF 
1244 « 
125 IF (LINECT > 60 .AND. PAGENO > 1) THEN 
126 @ 62,37 SAY "Page " « STR(PAGENO,2,0) 
127 ENDIF 
128 @ 2,18 SAY " EQUIPMENT SERIAL NUMBER PROJECT LEVEL REPORT " 
129 @ 4,62 SAY TODATE 
130 8 6,62 SAY “EFFECT ТОГ GOMPT ^ SERIAL" 
131 a 7,2 SAY "SITE CLIN  FEATURE# DESCRIPTION DATE" 
je a 7,60 SAY "QTY QTY NUMBER" 
133 (d Bg SAY ЕЕ ЕЕ ЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕ ЕЕ 91 
134 а 8,51 SAY Е====ЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕ=ЕЕ=" 
135 PAGENO = PAGENO + 1 
136 STORE 10 TO LINECT 
Da 
138 ENDDO WHILE .NOT. EOF() 
J39 * 
140| ELSE 
141 SET COLOR TO GR+/B, GR+/B 
142 @ 4,52 SAY "EFFECT TOT COMPT SERIAL" 
143 @ 5,2 SAY "SITE CLIN  FEATURE# DESCRIPTION DATE" 
144 @ 5,60 SAY "QTY QTY NUMBER" 
145 SET COLOR TO /BR, /ВЕ 
146 | STORE 0 ТО МЕСТ 
147] * 
148 DO WHILE .NOT. FOF() 
149 DO WHILE LINECT « 15 
150 @ LINECT+7,3 SAY SITENO 
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51 

152 
153 
154 
155 
156 
157 
158 
159 
160 
161 

162 
163 
164 
1695 
166 
167 
168 
169 
170 
171 

ІШЕ 
2173 
174 
175 
176 
ІШ? 
178 
ІШ? 
180 
181 
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@ LINECT+7,7 SAY DESCRIP->CLIN 
@ LINECT+7,15 SAY FEATURENO 
@ LINECT+7,24 SAY DESCRIP->DESCIPT 
@ LINECT+7,52 SAY EFFDATE 
@ LINECT+7,60 SAY TOTOTY 
@ LINECT+7,65 SAY QTY 
LINECT+7,70 SAY SERIALNO 
ЕЕС = ВЕСТ | 
SKIP 
УБОЛ КОНЕ 
SET COLOR TO W+/R, W+/R 
@ 24,18 SAY " End of File reached, Press any key to EXIT " 
SET CONSOLE ОБЕ 
WAIT TO ACCEPT 
SET CONSOLE ON 
EXIT 
ENDIF 
ENDDO WHILE LINECT « 15 


(eo 


IETEOF() = .Т.. THEN 

EIT 
ENDIF 
SET COLOR TO R+/B, R+/B 
STORE. C" TO CHOICE 
O22757 GET CHOICE PICT "1" 
READ 


ENSURE THAT THE USER'S RESPONSE IS EITHER "Y" OR "N" 


BU TITI PO NOT. (CHOICE = "C" .OR. CHOICE s "x") 
IF NOT. (CHOICE = "С" OR. CHOICE = "X") THEN 
SET COLOR TO W+/R, W+/R 
@ 24,24 SAY "' Response must be either C or X "' 
DO DELAY 
STORE "С'' ТО CHOICE 
ENDIF 
SET COLOR TO R+/B, R«/B 
gee 5) ee’ Ghorce РІСР "1" 
READ 
ENDDO 


DETERMINE IF THE USER WANTS TO QUIT OR CONTINUE 


СОТ = "С" 
SET COLOR TO /BR, /BR 
@ 07,2 SAY SPACE(76) 
@ 08,2 SAY SPACE(76) 
@ 09,2 SAY SPACE(76) 
@ 10,2 SAY SPACE(76) 
@ 11,2 SAY SPACE(76) 
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201 
202 
209 
204 
205 
206 
207 
208 
209 
210 
ZI 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
220 
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15,2 SAY 
16,2 SAY 


(со ао ао (со (CD (QD (c (c > cO 


ENDDO WHILE .NOT. 
* | 


ENDIF 
* 
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SPACE(76) 
SPACE(76) 
SPACE(76) 
SPACE(76) 
SPACE( 76) 
SPACE(76) 
ЗРАСЕ (76) 
ЗРАСЕ( 76) 
SPACE (76) 
SPACE( 76) 
LINECT 


BORU) 


* RETURN TO CALLING PROGRAM 


* 
SET PRINT OFF 


RELEASE ACCEPT, CHOICE, LINECT, PAGENO, TODAY, TODATE 


CLOSE DATABASES 
RETURN 
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PROCEDURE SNOSTRPT.PRG 
AUTHORS : LCDR EDWARD J. CASE, SC, USN 
LCDR WINSTON H. BUCKLEY, SC, USN 
LCDR ROBERT F. BRADO, USN 
LCDR ROBERT L. BEARD IILI; SC, USN 
PURPOSE : PROVIDE THE USER A SPLICE SERIAL NUMBER 
SITET LEVEL REPORT. 


Et FILES ZT SERTALNO. DBF, SERNOSIT NOX, DESCRIP. DEF, 
DESCRIP .NDA 
CALLED BY 2 ЦШЕКРТЪТЕКС 


MODULES CALLED : DELAY.PRG 
GLOBAL VARIABLE: HISITE, LOSITE 


LOCAL VARIABLES: ACCEPT, CHOICE, ERROR, LINECT, MESSAGE, MSITE, 
PAGENO, TODAY, TODATE 


КИЕР ЛИМЕРКИТЕТЕР 25-22-2222» 27 DECEMBER 1985 «zzzz-2z2z--- 


CASE SELECTION - 3 SERIAL NUMBER SITE LEVEL REPORT 


X X X X X X X X X X X X X X X X X X X X X X X ++ x x 


SET ESCAPE OFF 
SET TALK OFF 
SET COLOR TO W«/B, W«/B, B 


CLEAR 

USE SERIALNO 

GO TOP 

ШЕ-ЕОҒ() - .T. THEN 


SET COLOR TO W+/R, W+/R 
@ 13,22 SAY " The SERIAL NUMBER Database is EMPTY! " 
DO DELAY 
RETURN 
ENDIF 
?? FLASH + "S.REPORTS.SCR/" 
@ 24,0 SAY SPACE(80) 
БЕП COLOR TO R+/ , R+/ 
a 2,26 SAY " SITE SERIAL NUMBER REPORT '' 
SET COLOR TO W+/BR, W+/BR 
13,15 SAY "Enter site number for which the report is desired:" 


CALL SERIAL NUMBER DATABASE INDEXED ON SITE NUMBER, 
FEATURE NUMBER AND SERIAL NUMBER. RELATE TO DESCRIPTION FILE. 


Жж х жо 


SELECT 1 
USE SERIALNO INDEX SERNOSIT.NDX 
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STIS SELECT? 
521 USE DESCRIP INDEX DESCRIP 
53| SELECT SERIALNO 
54) SET RELATION TO FEATURENO INTO DESCRIP 
БЕ Е 
БӨ В НЕЕ т. 
57 SET COLOR TO /BR, /BR 
58 STORE LOSITE TO MSITE 
59 @ 13,66 GET MSITE PICT '99' 
60 READ 
61 IF .NOT. (MSITE >= LOSITE AND. MSITE <= (Pe ITP) in 
62 SET COLOR TO W+/R, W+/R : 
63 STORE ' Response must be between ' + LOSITE +; 
64 ' and ' « HISITE «€ ' ' TO ERROR 
65 Q 24,22 SAY ERROR 
66 DO DELAY 
67 LOOP 
68 ELSE 
69 GO TOP 
70 FIND &MSITE 
71 ТЕ БОБ ІЛЕ 
па STORE “ No serial numbers exist for site + четири: 
73 ", try another site " TO MESSAGE 
74 SET COLOR TO W+/R, W+/R 
72 @ 24,13 SAY MESSAGE 
76 DO DELAY 
p LOOP 
78 ELSE 
79 EXT 
80 ENDIF EOF() = .T. | 
81 ENDIF МОТ. ({MSTIE >= IOSITE -AND MSIE ТОЕ 
82| ENDDO WHILE .T. 
G2 = 
84| SET COLOR TO W+/BR, W+/BR 
85) @ 13,15 SAY SPACE(60) 
ВЕ" 
Sow CREATE THE SPLICE EQUIPMENT PROJECT REPORT AND CHECK IF THE REPORT 
Sol = 15 TO BE PRINTED OR DISPLAYED ON THE ВСВ 
89 ж ; 
90| @ 13,16 SAY " Do you want a printed report? . (Yes or No): " 
91| SET COLOR TO /BR, /BR 
92} @ 13,49 SAY "Y" 
Оза 33,56 SAY "N' 
94| STORE "М" TO ACCEPT 
95,0 12,62 GET ACCEPr PICh a 
96| READ 
97| 1% 
98| * ENSURE THAT THE USER'S RESPONSE IS EITHER "Y" OR "М" 
99| * 
100| DO WHILE .NOT. (ACCEPT = "М „ОБ. ACCEPT =) 
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101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
ІП 2 
ІШ 2 
114 
mno 
116 
T 
118 
ша 
120 
12] 
122 
123 
124 
125 
126 
127 
128 
(29 
130 
131 
12 
135 
134 
155 
136 
ey 
138 
19 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
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Page 3 SNOSTRPT.PRG Program Listing 


IF .NOT. (ACCEPT - "N'" .OR. ACCEPT - "y") THEN 
J SET COLOR TO W+/R, W+/R 
Q 24,24 SAY " Response must be either Nor Y " 
DO DELAY 
STORE "N" TO ACCEPT 
ENDIF .NOT. (ACCEPT = "М" „ОВ. АССЕРТ = "у") 
SET COLOR TO /BR, /BR 
a8 13,62 GET ACCEPT PICT "i" 
READ 
. ENDDO WHILE .NOT. (ACCEPT = "N"! .OR. ACCEPT = "Y"') 
ж 
SET COLOR TO /BR, /BR 
@ 13,15 SAY SPACE(55) 
ж 


IF ACCEPT = "Y" THEN 
2? FLASH + "W.PRINTER/" 
SET CONSOLE OFF 
WAIT TO CHOICE 
SET CONSOLE ON 
SET COLOR TO W/B, W/B 
_ @ 22,10 SAY SPACE(65) 
STORE DTOC(DATE()) TO TODAY 
STORE SUBSTR(TODAY,4,2) « " " + CMONTH(DATE()) + " 19" +; 
SUBSTR(TODAY,7,2) TO TODATE 
STORE 0 TO PAGENO 
STORE 61 TO LINECT 
SET COLOR TO R+/ , R+/ 
SET DEVICE TO PRINT 


DO WHILE .NOT. EOF() 
DO WHILE (LINECT <= 60 .AND. .NOT. EOF()) 
@ LINECT,3 SAY SITENO 
LINECT,7 SAY DESCRIP->CLIN 
LINECT,15 SAY FEATURENO 
LINECT, 24 SAY DESCRIP->DESCIPT 
LINECT,52 SAY EFFDATE 
LINECT,60 SAY TOTOTY 
LINECT,65 SAY QTY 
LINECT,70 SAY SERIALNO 
LINECT = LINECT + 1 
SKIP 
ENDDO WHILE WHILE (LINECT <= 60 .AND. .NOT. EOF()) 


(о ао (о (о (о > > 


IF EOF() - .T. THEN 
IF PAGENO > 1 THEN | 
8 62,37 5АҮ "Page " « STR(PAGENO, 2,0) 
ENDIF PAGENO > 1 
ЕЗЕСІ 
SET DEVICE TO SCREEN 
8 13,25 SAY " FINISHED PRINTING THE REPORT " 
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151 

52 
T33 
154 
155 
156 
157 
158 
159 
160 
161 

162 
163 
164 
165 
166 
167 
168 
169 
170 
171 

172 
T3 
174 
125 
176 
177 
179 
179 
180 
181 

182 
183 
184 
195 
186 
187 
188 
189 
190 
19] 

192 
125 
194 
195 
196 
197 
198 
199 
200 
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Page 4 SNOSTRPT.PRG Program Listing 
DO DELAY 
EXIT 
ELSE 
SEP DEVICE 10 SCREEN 


Q8 13,27 SAY " Printing Page Number " « STR(PAGENO + 1,2,0) + " " 
SET DEVICE TO PRINT 
ENDIE POR =- ш 


IF (LINECT > 60 .AND. PAGENO > 1) THEN 
@ 62,37 SAY "Раде " + STR(PAGENO,2,0) 
ENDIF (LINECT > 60 .AND. PAGENO > 1) 


@ 2,26 SAY " SITE SERIAL NUMBER REPORT " 

@ 4,60 SAY TODATE 

@ 6,52 SAY "EFFECT TOT COMPT SERIAL" 

a 7,2 SAY "SITE CLIN FEATURE# DESCRIPTION DATE" 
@ 7,60 SAY "QTY ОТҮ NUMBER" 

@ 8,2 SAY === =ЕЕЕЕЕЕЕЕЕЕЕЕНЕЕЕЕЕЕЕЕЕЕНЕНЕЕЕЕЕЕЕЕЕЕЕЕЕ==Е" 
ОТОУ ЗАГ !.--------------------------- 


PAGENO = PAGENO + 1 
STORE 10 TO CINECT 


ENDDO WHILE .NOT. FOF() 
* 
ELSE 
SET COLOR TO GR+/B, GR+/B 
@ 4,52 SAY "EFFECT TOT COMPT SERIAL" 
@ 5,2 SAY "SITE CLIN FEATURE# DESCRIPTION DATE 
@ 5,60 SAY "QTY QTY NUMBER" 
SET COLOR TO . /BR, /BR 
STORE O TO LINECT 


DO WHILE NOT. BOF) 

DOC WHILE BINBECI « 15 
LINECT+7,3 SAY SITENO 
LINECT+7,7 SAY DESCRIP->CLIN 
LINECT+7,15 SAY FEATURENO 
LINECT+7,24 SAY DESCRIP->»DESCIPT 
JINECT+7 52 SAY EEFPDASTEIE 
LINECT+ 7, 60 SAY TOTOTY 
LINECT+7,65 SAY QTY 
LINECT+7,70 SAY SERIALNO 
LINECT = LINECT + 1 
SKIP 
TP Е т пы. 

SET COLOR TO W+/R, W+/R 

@ 24,18 SAY " End of File reached, Press any key to EXIT " 

SET CONSOLE TOER 

WAIT TO ACCEPT 

SET CONSOLE ON 

EXIT 


(о (о (о (о (о (о (о (о 
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201 

202 
203 
204 
205 
206 
207 
208 
209 
210 
211 

212 
213 
214 
215 
216 
А 
218 
219 
220 
221 

222 
223 
224 
225 
226 
227 
228 
229 
230 
231 

232 
25:29 
234 
235 


237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
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SNOSTRPT.PRG Program Listing 


ENDIF FOFR() = T, 
ENDDO WHILE LINECT « 15 


ТЕ ЕОЕ() = 2T. THEN 
EXIT 

ENDIF FOF() - .T. 

SET COLOR TO R+/B, R+/B 

STORE "C" TO CHOICE 

ПЭ СЕ CHOICE PICT!" 

READ 


ENSURE THAT THE USER'S RESPONSE IS EITHER "Y" ОВ "МН 


DOR Hine МИ (CHOICE = "C1 ОВ, CHOICE = "Х"”) 
IF .NOT. (CHOICE = "C" .OR. CHOICE s "X") THEN 
SET COLOR TO W+/R, W+/R 
@ 24,24 SAY " Response must be either C or X " 
DO DELAY 
STORE "C" TO CHOICE 
ENDIF .NOT. (CHOICE = "С" .OR. CHOICE = "Х") 
SET COLOR TO R+/B, R+/B 
пр 22 SURGEISCHOICE PICT "1" 
READ 
ENDDO WHILE .NOT. (CHOICE - "C" ,OR. CHOICE = "x") 


DETERMINE IF THE USER WANTS TO QUIT OR CONTINUE 


ie CHOICE а "С" 

SET COLOR TO /BR, /BR 
07,2 SAY SPACE(76) 
08,2 SAY SPACE(76) 
09,2 SAY SPACE(76) 
10,2 SAY SPACE(76) 
11,2 SAY SPACE(76) 
12,2 SAY SPACE(76) 
13,2 SAY SPACE(76) 
14,2 SAY SPACE(76) 
15,2 SAY SPACE(76) 
16,2 SAY SPACE(76) 
17,2 SAY SPACE(76) 
18,2 SAY SPACE(76) 
19,2 SAY SPACE(76) 
20,2 SAY SPACE(76) 
21,2 SAY SPACE(76) 
LINECT 


(о (о (о (gn ау Яо (о ао Яо (о (ge (m (m (m m 


5 
Е 
= 


ELSE 
EXIT 
E DIE CHOICE = iC" 


ENDDO WHILE .NOT. FOF() 
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254 
255 
256 
257 
258 
259 
260 
261 
262 
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Page 6 SNOSTRPT.PRG Program Listing 


* 
ENDIF ACCEPT = "y" 
* 


* RETURN TO CALLING PROGRAM 

ж 

SET PRINT OFF 

RELEASE ACCEPT, CHOICE, ERROR, LINECT, MESSAGE, MSITE P PA CEOD 
TODAY, TODATE 

CLOSE DATABASES 


RETURN 
жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
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